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I. INTRODUCTION 


A. COAST GUARD GROUP MONTEREY 
1. Overview 
Coast Guard Group Monterey is the southernmost of three Groups in the 
Twelfth Coast Guard District. The Group is the primary Coast Guard interface with 
other federal, state, and local agencies and the general public in its area of 
responsibility. Group Monterey serves 175 muies of California coastline out to 60 
nautical miles from Point Ano Nuevo (north of Santa Cruz) south to Point Sal (north 
of Santa Maria). Within this geographic area, the Group 1s tasked as the Search and 
Rescue Mission Coordinator. — | 
The primary missions of Group Monterey include law enforcement, search and 
rescue, marine environmental protection, and boating safety. To fulfill these missions. 
the Group is staffed with over 100 men and women who operate and maintain a 
variety of law enforcement and rescue resources. The specific organizational structure 
and manning is outlined in Figure 1.1. 
2. Search and Rescue (SAR) 


Coast Guard Group Monterey has been an active SAR Mission Coordinator 


_ during the past eight years. From 1979 to 1983, there were over 1641 SAR cases. 


More detailed SAR statistics have been maintained since 1984 and are summarized for 
the period October 1, 1983 - April 1, 1987 in Table 1. 
Group Monterey has the following Coast Guard units available for SAR 
response: 
- CG-41367 (41 foot utility boat) 
- CG-41369 (41 foot utility boat) 
: CG-44346 (44 foot motor lifeboat) 
- CG-195003 (19 foot utility boat) 
: Point Barrow (82 foot patrol boat) 
: Point Heyer (82 foot patrol boat) 
- Cape Wash (95 foot patrol boat) 
Coast Guard and military aviation organizations and units supporting Group 
Monterey’s SAR mission include: 


- Coast Guard Aur Station Sacramento 
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Coast Guard Air Station San Francisco 

Fort Ord MAST Helicopters 

Fort Hunter Ligget MAST Helicopters 

Group Monterey, in addition to its Coast Guard and military SAR resources, 


has received SAR assistance from the following: 





Coast Guard Auxiliary vessels and aircraft 
Santa Cruz Harbor Master 

Moss Landing Boat Works 

California Fish and Game 

San Luis Obispo Harbor Master 

Morro Bay Harbor Master 

California Highway Patrol | 

Various county sheriff departments 
Pacific Grove Marine Rescue 


Numerous local police units 


ABLE ol 
GROUP MONTEREY SAR STATISTICS 


Value of Value of 
Lives Lives Persons epeay Propert 
OS 


Lost Saved Assisted Assiste 

21 62 731 5. 2,085 S 111,473K 

19 48 604 S 1,403K S$ 7,492K 

20 852 S 616K S 10.217K 
S 


eine 372 122K 5,276K 


3. Law Enforcement 


Group Monterey is mandated by law to conduct boardings of recreational, 


commercial, and passenger vessels to ensure compliance with applicable federal laws, 


regulations, and standards. The FY86 boarding statistics for Group Monterey are 


summarized in Table 2. 


Agencies that assist or work in cooperation with Coast Guard Group 


Monterey include: 


Monterey County Sheriff's Department 
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- Monterey Police Department 

- Monterey County District Attorney 

- California Highway Patrol 

- United States Customs Service (USCS) 

- Bureau of Alcohol, Tobacco, and Firearms (ATF) 
- Drug Enforcement Administration (DEA) 

- California Department of Motor Vehicles 

- Santa Cruz County Narcotics Enforcement Team 
- United States Border Patrol 

- Narcotic Detection Dogs (DELTA IX) 

- Fort Ord Federal Police 

- Santa Cruz Harbor Master 

. Pacific Grove Police Department 


- Morro Bay Police Department 


TABEE 2 
GROUP MONTEREY BOARDING STATISTICS 


Total Boardings 
Written Notices [ssued. .............ccsssssssscscsceees 181 


Written Wdinings, |Ssitcate-s see... 105 
Safety Boaneinom Gonduerew jc 158 





B. STATUTORY AUTHORITY 

The statutorv authority that governs the operations of Coast Guard Group 
Monterey can be divided into two separate classifications. One area of responsibility 
and authority involves laws relating to navigation and merchant shipping. Laws that 
relate to customs and revenue, immigration, quarantine, protection of fish and game 
that fall within the jurisdiction of other federal agencies, but which require the unique 
authority and marine facilities of the Coast Guard for effective enforcement comprise 
the second legal category. Specific statutory authority which delineates and amplifies 


Coast Guard responsibilities and jurisdiction include the following: 
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14 USC 2. This statute outlines the specific duties and responsibilities of the 
Coast Guard and gives the Coast Guard authority to enforce or assist in the 
enforcement of all applicable federal laws. 


14 USC 89. This statute grants specific law enforcement authority to the Coast 
Guard. It gives the Coast Guard the authority to make “inquiries, 
examinations, inspections, searches, seizures, and arrests on the high seas and 
waters over which the United States has jurisdiction for prevention, detection, 
and supression of violations of laws of the United States”. 


14 USC 141. This statute gives the Coast Guard the authority to assist or be 
assisted by any federal agency, state, territory, or possession of the United 
States in the enforcement of applicable laws. 


14 USC 143 / 19 USC 14011). These statutes grant customs law enforcement 
authority to the Coast Guard. 


19 USC 1581. This statute grants authority to the Coast Guard, when 
enforcing customs laws, to seize any vessel; merchandise, or arrest any person in 
violation of these laws. 


Port and Waterways Safety Act of 1970 (33 USC 1221). This act increases the 
supervision of vessel and port operations and mandates that all vessels 
operating in navigable waters of the Umited States comply with all applicable 
standards and requirements for .vessel construction, equipment, manning, 
operational procedures, and safe handling of hazardous cargos. 


Federal Boat Safety Act of 1971 (46 USC i451). This act improves recreational 
safe boating and facilities by prescribing specific requirements and standards for 
boats and equipment. 


Executive Order 11735 on Oil Pollution (August 3, 1973). This order directs the 
Coast Guard to receive notice of discharges of oil or hazardous substances, to 
establish procedures to prevent and contain discharges, to inspect vessels 
containing oil and hazardous substances and to board and arrest persons in 
violation of applicable laws. 


Executive Order 11727 on Drug Enforcement (July 6, 1973). This order 
establishes a Drug Enforcement Administration within the Department of 
Justice and directs that each federal department and agency shall assist in the 
enforcement of laws involving narcotics and dangerous drugs. 


THESIS BACKGROUND 

As demonstrated throughout Coast Guard history and mandated bv statute, the 
Coast Guard must be able to rapidly respond to any Search & Rescue crisis or Law 
Enforcement scenario. Additional and timely information in these crises and scenarios 
can make the difference between lives-saved and lives-lost, or violators apprehended 
and violators that escape prosecution. All too often, this information is maintained in 


filing cabinets --- virtually inaccessible when decisions must be made within minutes. 


IS 


Coast Guard units, such as Group Monterey, must respond to situations where they 
have little or no information. To find out that a certain vessel owner/operator has a 
history of violations or is considered armed and dangerous can assist Coast Guard 
boarding officers in better preparing for what could be a life-threatening situation. 
Additionally, during SAR cases, it can be critical to know a vessel’s description to 
facilitate its identification by land-based units, air resources, or Coast Guard vessels 
dispatched to search for the vessel in distress. 

In order to respond to the need for automated information support, the Search 
and Rescue and Enforcement of Laws and Treaties: Intelligence Svstem (SARELTIS) 
was designed and implemented. Coast Guard Group Monterey served as the test bed 
for determining information needs and systems analysis. The system is able to not only 
respond to real-time SAR and Law Enforcement cases, but is also robust enough to 
allow users to analyze the data collected to form their own local intelligence 
information base. The system’s standard reports can provide limited decision-making ° 


support for Coast Guard resource allocation and scheduling. 


D. GOALS AND OBJECTIVES 
The goals and objectives of SARELTIS are twofold: first, to provide a real-time query 
capability and second, to provide historical management reports that can aid in 
resource allocation, scheduling, and distribution. The following functions/products will 
be performed/ prepared by SARELTIS: 
a. Interactive Query 
™  Vesseleocanenes 
* ~ "Personnel Searches 
b. Intelligence Reporting 
* El Paso Intelligence Center (EPIC) Intelligence Summary 
* Vessel Profiles for Violation Analysis 
* Personnel Intelligence Summary 
c. Boarding Historical Reports 
*  Violation/Unsafe Condition Analysis 
* Courtesy Motorboat Examination (CME) Analysis 
* Geographic Area Analysis 
d. SAR Historical Reports 


Immediate SAR Case Analysis 
* Geographic Area Analysis 
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* SAR Unit Operational Time Utilization Summary 
* Days/Months/ Years SAR Case Analysis 
e. Vessel Historical Reports 
*~ VesseluSummary 
f. Personnel Historical Reports 
* Vessel Owners Summary 


* Vessel Operators Summary 


KE. METHODOLOGY 

Two prototypes were developed as a precursor to SARELTIS. Functionally, the 
first prototype concentrated on the Law Enforcement information requirements on a 
limited scale while the second prototype concentrated on SAR. After proving the 
technical feasibility of the SARELTIS concept, a feasibility study was prepared and is 
included as Chapter II. The two prototypes will be discussed in Chapter ITI. 

The logical design structure necessary to fulfill the information requirements to 
fully implement SARELTIS is presented in the data flow diagrams of Appendix A. 
These dataflow diagrams depict the complete analysis of the SAR and Law 
Enforcement functions and processes of Coast Guard Group Monterey, and were 
developed through extensive interviews with Group personnel. Additionally, these 
diagrams show the automation boundary of SARELTIS, which is a_ graphic 
representation of precisely where SARELTIS will fit into these mission areas. Once 
this automation boundary was identified, the logical entities and their relationships 
within this boundary were determined and represented by the Bachman diagram found 
in Appendix A. 

The physical design process for the SARELTIS prototype involved the 
conversion of the logical model into a language-specific database structure and an 
identification of the modules required to implement the required functions of the 
application. To perform this conversion, all of the currently used source documents 
were identified. A survey was prepared containing all of the data elements present on 
these forms and was distributed to representative groups of users at Group Monterey. 
These users identified the degree to which the data elements were necessary for the 
performance of their duties. From the results of this survey, the data elements required 
within the SARELTIS database were identified. These data elements were then 
grouped within the previously defined entities of the Bachman diagram and became the 
basis for the SARELTIS physical database structure. 
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At the completion of physical database structure implementation, the specific 
functions that were required to operate upon this structure were identified, including 
the generation of all required and anticipated user and management reports. These 
functions were then divided into implementable modules, coded, and tested. Upon 
completion of testing, modules with related functionality were combined and the sub- 
menu code required to invoke each application was developed. Finally, the main 
menu, security, and utility modules were constructed and the entire system was 
integrated. The module functional descriptions are provided in Appendix D and the 
menu hierarchy charts are included in Appendix C. 

The User’s Guide, located in Chapter IV, provides the user with a step-by-step 
guide to the SARELTIS menu-based system. The various reports generated by 
SARELTIS are displayed in Appendix B. 


tf. SYSTEM REQUIREMENTS 
To operate SARELTIS, the following hardware is required: 
* IBM® PC-XT, PC-AT, or compatible microcomputer 
*  DOS®, Version 2.0 or higher 
* A hard disk and one double-sided, double-density 5.25 floppy disk drive 


* 384K of main memory (system processing is greatly enhanced if 640K or 1M of 
main memory is available) - 


* Color or monochrome monitor 
* Printer, with normal or large carriage 
SARELTIS was developed utilizing the R:base 5000® Database Management 
System wnitten by MicroRim, Inc., of Belleview, Washington. | 


G. SYSTEM-OVERVIEW 

SARELTIS is an interactive, user-friendly, menu-driven system. A series of 
screens displaying various menus provide the user with a functional man-machine 
interface. 

The overall system design is based upon one relational database accessed by 
eleven functionally separate application modules. Application modules are comprised 
of functionally distinct programs. These program functions are listed in Chapter IV, 
the User’s Guide, with each module’s function explained in detail in Appendix D. 

All system reports are designed to be printed on a normal (small) width carriage 


printer. The forty five reports prepared by the system were designed to assist the 
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Commanding Officer or Operations Officer to make better resource and planning 
decisions. 

The R:base 5000 language is easily accessible for the advanced user and can be 
used to build other applications, reports, forms, searches, and displays of SARELTIS 


information not covered in the original implementation. 
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Il. SARELTIS FEASIBILITY 


A feasibility study is a compressed, capsule version of the entire systems analysis 
and design process. As part of the feasibility process, the existing system is examined, 
a high level model of the proposed system is developed, and the overall feasibility of 
the project is evaluated. This chapter will examine the economic and the political 
feasibilities of SARELTIS. The technical feasibility will be addressed in Chapter II] 
(discussion of the prototypes). 


A. POLITICAL FEASIBILITY 

Due to recent Congressional pressures and unfavorable publicity concerning the 
Coast Guard’s zealous boarding practices in unwarranted situations, attention has 
been focused on the lack of available information provided to boarding officers prior to 
the boarding of a vessel. Boarding officers must comply with the provisions of Title 14 
of the U.S. Code, Section $9, concerning their use of force necessary to compel public 
and commercial boaters to comply with U.S. laws and boarding directions. However, 
without adequate information or intelligence prior to boarding, the degree of initial 
force necessary to ensure this compliance is difficult if not impossible to predetermine. 
Therefore, any means of providing this. intelligence information would be strongly 
welcomed at all levels of the Coast Guard. 

Coast Guard Group Monterey was contacted in early June 1986 to determine 
their willingness to serve as a test site for the implementation of a prototype 
intelligence svstem. Their response was overwhelming and highly supportive. 
Following the initial positive reaction of Group Monterey, both the Twelfth Coast 
Guard District and Coast Guard Pacific Area intelligence offices were approached in 
December 1986 concerning the proposal and the results of the first prototvpe. Thev 
also displayed a high degree of enthusiasm for the effort. In April 1987, RADM W. 
Merlin, the Coast Guard’s senior management responsible for all computer 
applications, expressed an interest in the project and promised additional hardware 
support. 

It is obvious from the above that the concept of providing automated intelligence 
and information is supported at all levels of the Coast Guard --- from local operational 
personnel to top management of the entire organization. This kind of multi-level 
Organizational support has shown that the SARELTIS project is politically feasible. 
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B. 


ECONOMIC FEASIBILITY 
Economic feasibility is demonstrated if it can be shown that the benefits of a 


system outweigh its costs. Before making any cost/benefit study, it is important to list 


the assumptions that were used so that the reader may see what constraints were 


imposed on the analysis and where the costs and benefits were derived from. The 


following is a list of assumptions used in formulating the cost/benefit analysis: 


da. 


Management information research on Search and Rescue (SAR) cases provided 
monthly. 


Management information research on Enforcement of Laws and Treaties (ELT) 
cases provided weekly. 


SAR management information research performed by Group Monterey’s 
Officer-of-the-Day (paygrade E-6). 


L/E management information research performed by Group Monterey’s ELT 
Specialist (paygrade E-5). 


Specific ELT case research performed by Group Monterey’s Officer-of-the-Day 
(OOD). 


Specific SAR case research performed by Group Monterey’s Officer-of-the-Dav 
(OOD). 


Assume 2,000 man-hours per year. 
Development of SARELTIS performed by two lieutenants (paygrade O-3). 


All costs and benefits were evaluated based on the Coast Guard’s Annual. 
Standard Personnel Costs (Ref. 1]. The pertinent costing data is as follows: 


1) paygrade E-5 --- $18,500 ($9.25 / hour) 
2) paygrade E-6 --- $22,300 ($11.15 / hour) 
3) paygrade O-3 --- $35,900 ($16.95 / hour) 
The annual SAR case load is 386 (Table 1). 

The annual ELT case load is 444 (Table 2). 


The annual SAR and ELT case loads will remain relatively constant over the 
expected life of the project. 


SARELTIS has an expected 5 year project life. 


Approximately three years of historical SAR and ELT case data will be entered 
upon svstem implementation. 


In order to better understand how the actual computations contained in this 


section were derived, a synopsis of both the existing and proposed systems will be 


discussed below. 
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1. Existing Method 

ELT and SAR case load research is currently not conducted due to the 
amount of time necessary to perform the research and the inaccessibility of the 
information. It has been estimated by Coast Guard Group Monterey OOD’s that such 
research would take a minimum of 1.5 to 2.0 hours to search through their existing 
records to locate any available pertinent information if the information could be found 
at all. 

Management information research on ELT cases is performed by the Group’s 
ELT Specialist (paygrade E-5) who must manually compile statistics on a weekly basis. 
He estimates that it takes a minimum of | man-day to perform the required research 
and the preparation of subsequent required reports. 

Management information research on SAR cases 1s performed by the Group’s 
OOD (pavygrade E-6) who must manually compile statistics on a monthly basis. It is 
estimated that this research takes a minimum of 3 man-days to perform the research 
and to prepare the required reports. 

2. Proposed System 

ELT and SAR specific case research will be handled through customized 
database query program modules. It 1s estimated each query would take an average of 
3 minutes to enter the search criteria and perform the actual search. 

Management information research on ELT cases would be done through the 
use of customized reports where users can define specific timeframes, vessels, 
violations, or personnel to analyze or search. It is estimated that it would take 
approximately 30 minutes to perform a series of reports relating to ELT information. 

Management information research on SAR cases would be done through the 
use of customized reports where users can define specific timeframes, vessels, or 
personnel to analyze or search. It is estimated that it would take approximately 30 


munutes to perform a series of reports relating to SAR information. 
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3. Existing Method Analysis 


Recurring Costs: 


SAR Case Load Research: 


Filling out required SAR case documentation: 


ours Slinlis<payerade E-6) 
Annual SAR case load 


Retrieving specific SAR case data: 
1.5 nours x $11.15 (pavgrade E-6) 
Annual SAR case load 


Total SAR Case Load Research: 


ELT Case Load Research: 


Filling out required ELT case documentation: 


1 hour x $11.15 (paygrade E-6) 
Annual ELT case load 


Retrieving specific ELT case data: 
1.5 hours x $11.15 (paygrade E-6) 
Annual ELT case load 


Total ELT Case Load Research: 
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S220 
386 


$8,607.80 


SHOWS 
386 


$6,457.78 


bW2,065.58 


Sil 15 
a4 


$4,950.60 


16373 
444 


Sea P Sali? 


516.1 2 


SAR Management Information Research: 


Researching SAR documentation: 
4 man-days x $11.15/hour x 8 hours 
(paygrade E-6) 

Monthly Research 


Total SAR Management Information Research 


ELT Managment [nformation Research: 


Researching ELT documentation: 
1 man-dav x $9.25 x $8 hours ° 
(paygrade E-5) 

Weekly Research 


Total ELT Management Information Research 


Total Existing Method Costs (Recurring): 


Total SAR Case Load Research: 
Total ELT Case Load Research: 
Total SAR Management Information Research 


Total ELT Management Information Research 


Total Recurring Costs: 
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$356.80 
12 


$4,281.60 


$74.00 
32 


$3,848.00 


$15,065.58 
312,35 76a 
$4,281.60 
$3,848.00 


$35,573.98 


4. Proposed Method Analysis: 


Non-Recurring Costs: 


First Prototype Development (using R:base 4000): 
250 man-hours x $16.95 (paygrade O-3) 


Second Prototype Development (using ReQuest): 
200 man-hours x $16.95 (pavgrade O-3) 


SARELTIS Development (using R:base 5000): 
2000 man-hours x $16.95 (paygrade O-3) 


SARELTIS Initial Historical SAR Data Loading: 
.25 hours x $11.15 (paygrade E-6) 


386 cases X 3 vears 


SARELTIS Initial Historical ELT Data Loading: 
.25 hours x $11.15 (paygrade E-6) 
444 cases x 3 years 


Hardware / Software Costs: 
IBM PC-XT compatible computer and printer 
R:base 5000 software 


Total Non-Recurring Costs: 


- 


$4,237.50 


$3,390.00 


$33,900.00 


Seo 
1,158 


$3,230.82 


S279 
lo2 


$3,716.28 


$2,000.00 
$400.00 


$2,400.00 


$50,874.60 


Recurring Costs: 


SAR Case Load Research: 


Filling out required SAR case documentation: 


2 hours x S$11-15 (paygrade E-6) 
Annual SAR case load 


Loading SARELTIS with SAR case data: 
.25 hours x $11.15 (paygrade E-6) 
Annual SAR case load 


Retrieving specific SAR case data: 
OS hours x $11.15 (paygrade E-6) 
Annual SAR case load 


Total SAR Case Load Research: 
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$22.30 
386 


$8,607.80 


52.42 
386 


$1,076.94 


$0.56 
386 





$216.16 


$9,900.90 


ELT Case Load Research: 


Filling out required ELT case documentation: 


1 hour x $11.15 (paygrade E-6) 
Annual ELT case load 


Loading SARELTIS with ELT case data: 
25 hours x $11.15 (paygrade E-6) 
Annuai ELT case load 


Retrieving specific ELT case data: 
OS hours x $11.15 (paygrade E-6) 
Annual ELT case load 


Total ELT Case Load Research: 


a 


See 
ao 


$4,950.60 


$2.79 
nas 


2235.76 


$0.56 
444 





$248.64 


$6,438.00 


SAR Management Information Research: 


Researching SAR documentation: 


.. hours x $11.15 (paygrade E-6) 5355 
Weekly Research 12 
Total SAR Management [Information Research $66.96 


ELT Managment Information Research: 


Researching ELT documentation: 


.) hours x $11.15 (paygrade E-6) $5.58 
Weekly Research 12 
Total ELT Management Information Research $66.96 


System Manager Data Validation: 


100 hours x $11.15 (paygrade E-6) $1,115.00 
Hardware Corrective Maintenance: . $500.00 
Software Corrective Maintenance: $500.00 

Total Recurring Costs: $18, 587332 
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5. Proposed versus Existing Method Cost Comparisons: 


Total Existing Non-Recurring Costs 


Total Proposed Non-Recurring Costs 


Additional Non-Recurring Costs 


Total Existing Recurring Costs 
Total Proposed Recurring Costs 


Total Recurring Savings 


Pavback Period [Ref 2: p. 319}: 
First Year Costs 
First Year Benefits 


Payback Period = Costs / Benefits 
$50,874.60 / $16,986.08 
2.99 years 


Internal Rate of Return (IRR): 
Estimated First Year Costs 


Estimated First Year Benefits 
Estimated Second Year Benefits 
Estimated Third Year Benefits 
Estimated Fourth Year Benefits 
Estimated Fifth Year Benefits 


Calculated IRR [Ref. 2: p. 320-322]: 


Jes) 


$0.00 
$50,874.60 


$50,874.60 


Bb, 070-90 
S1S,58 77672 


$16,986.08 


$50,874.60 — 
$16,986.08 


$50,874.60 


$16,986.08. 
$16,986.08 
$16,986.08 
$16,986.08 
$16,986.08 
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Ill. TECHNICAL FEASIBILITY 


Can the system be implemented using current technology (Ref. 2: p. 274]? This is 
the question that must be answered to determine and evaluate the technical feasibility 
of a project. For the SARELTIS project, the issue of current technology was 
approached from two different perspectives. First, was the concept of a historical 
database svstem that could provide on-line query information and complex 
management reports an implementable concept within the scope of a thesis project? 
And second, was this concept implementable within the constraints of the Coast Guard 
standard database language, ReQuest®? During the last vear, two limited scale 
prototypes were developed by the authors to answer these two questions of project 
technical feasibility. 


A. LAW ENFORCEMENT INFORMATION SYSTEM 

Concept implementability was the question that was addressed by the design of 
the Coast Guard Law Enforcement Information System, the first prototype. This 
prototype was programmed on the Coast Guard Standard Terminal System using the 
relational database system R:base 4000®, and provided historical information on 
vessels, operators, and vessel boardings. It was designed to facilitate the retrieval of 
“intelligence-type” information to better prepare boarding officers and boarding petty 
officers prior to stepping onto a vessel. It also provided statistical information of the 
locations, times, dates, and the types of vessels that were boarded. 

The logical design of this prototype included the entities of an operator, a vessel, 
and a boarding.. To implement this logical design, additional relations were added as 
required to provide the necessary intersection mechanisms, rules, forms, reports and 
editing constraints. All restrictions concerning the legal values of attributes and 
interrelational constraints are stated and controlled through the use of the R:base 4000 
rules feature. Menu chaining was used to provide a user friendly system, and menus 
and programs were written in and controlled through the use of the R:base 4000 
command language. The R:base 4000 environment proved to be very capable of 
supporting this limited scale application. | 

This prototype was successfully demonstrated in December 1986. The prototype 


demonstrated the capability of complex nautical chart searching algorithms for use in 


30 


making key management decisions for “high incident areas” and “high incident times” 
and the capability of searching the database for vessels of interest within a given search 
criteria. 

Therefore, through the use of the Law Enforcement Information System 


prototype, the question of concept implementability was successfully satisfied. 


B. SEARCH AND RESCUE INTELLIGENCE INFORMATION SYSTEM 

Since all Coast Guard “production” database management system 
implementations are required to use the Coast Guard standard database language, 
ReQuest, another limited scale prototype was developed to assess the feasibility of 
application development within the constraints imposed by Coast Guard directives. 
The development and testing of this prototype, the Search and Rescue (SAR) 
Intelligence Information System, occurred during June 1987. 

The Search and Rescue Intelligence Information System was programmed on the 
Coast Guard Standard Terminal System using the language ReQuest, and provided 
historical mformation on vessels, owners, and vessel search and rescue cases. I[t was 
designed to facilitate the retrieval of detailed vessel and owner historical information to 
better enable the SAR case personnel to conduct the SAR mission. 

The entities of an owner, a vessel, and a SAR case were represented within -the 
logical structure of this prototype. The physical structure included an intersection 
record to lmk the owner and vessel entities. All attribute and mterrelational 
constraints were specified and controlled through the attribute descriptions. Forms 
and reports were created and stored as individual files, independent of the database 
structure. Menus were very limited as ReQuest does not allow menu chaining bevond 
(Memtop evel, Reports were also very limited due to the restrictions imposed by 
ReQuest' concerning multiple relation searching and reporting. The system was 
designed to replicate the functionality of the first prototype as much as possible, 


however, the ReQuest environment did not allow this parallelism. 


C. INADEQUACIES OF REQUEST FOR THE SARELTIS PROTOTYPE 
Numerous problems were encountered during the development of the second 
prototype that were directly attributable to the use of the language ReQuest. This 
language is very limited in scope and inflexible in nature. It does not support any type 
of command language for program or menu construction. To successfully utilize an 


application developed within this environment, the user must be very knowledgeable 
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and fully understand both the language and the application. Unlike more flexible 
programming environments, the details of the language and the underlying structure of 
the application cannot be made transparent to the user. Additionally, the true 
Strengths of a relational system, namely the ability to join and search multiple tables 
for reports or ad-hoc queries, 1s absent in this language. Reports are limited to the use 
of two tables at most, with certain restrictions, and information requested by ad-hoc 
queries may only come from a single predefined table. Any tables that result from a 
relational operation, such as a join, cannot then be searched by an adhoc query. 
Therefore, to provide the desired searching functionality within the SARELTIS 
prototype, the physical implementation would have to consist of a single relation, and 
would be subject to all the anomalies inherent in a first normal form relational 
database [Ref. 3: p. 286-290]. Speed is also a major problem. To accomplish even the 
simplest tasks required a great deal of waiting time on the part of the user. Finally, the 
security system provided by the language did not function properly. As a result of 
these constraints imposed by the ReQuest language, it was.determined that a different 
environment would have to be used to successfully implement the SARELTIS 


prototype. 


D. PROPOSED LANGUAGE ENVIRONMENT 

Since ReQuest was determined to be infeasible as a language environment for the 
SARELTIS project, the additional languages available for the Coast Guard Standard 
Terminal System were examined to determine if any were suitable. At present, the only 
additional language available for the standard terminal and the CTOS operating system 
is the R:base 5000 relational database environment. As this is an updated and 
enhanced version of the language used for the first prototype, it was determined that 
R:base 5000 would be used for the SARELTIS project. Unfortunatly, the R:base 5000 
environment was not available locally for the Coast Guard Standard Terminal System. 
The language was, however, available for the IBM DOS operating system. Therefore, 
the decision was made to develop the SARELTIS prototype utilizing the R:base 5000 
environment within the IBM DOS operating system. This decision allowed the 
development of a fully capable product that could ultimately be converted for use on 
the Coast Guard Standard Terminal System, and established full technical feasibility 
for the SARELTIS prototype. 


32 


IV. USERS GUIDE 


A. INTRODUCTION 

The following user’s guide is written assuming that its intended user will be 
utilizing an IBM PC-XT or an IBM compatible computer with a 5.25 inch floppy disk 
drive, a minimum of 640K internal memory, a hard disk (minimum 10M Bytes), a 
printer with a normal size carriage, and using the DOS operating system. If a 
different hardware configuration is used, the user should refer to the owner's manual 
to see how to load R:base 5000 and to determine if the configuration will support the 
database system and SARELTIS. 

SARELTIS was designed to assist Coast Guard Group Monterey in automating 
historical information and intelligence retrieval. To this end, SARELTIS provides 
comprehensive input and modify programs to assist the user in easily entering 
information and correcting/updating existing information in the system. Additionally, 
a realtime query module allows users to access system database records quickly and 
easily in order to provide the most current intelligence and historical information in a 
timeframe that can be used in operational missions. 

This user’s guide is an attempt to direct users through the major portions of 
-SARELTIS. A recent thesis by LCDR J. M. Graham (Ref. 4] provided some of the 
framework and content of this section. Due to the actual size of the SARELTIS 
program and the desire to keep the user’s guide short and easy to understand, the 
‘technical inner workings of each program will not be discussed. Users desiring to know 
more information should consult the R:base 5000 technical manuals or contact one of 
the authors for additional clarification. The following topics will be addressed to assist 
the user with SARELTIS operations: 

e System Startup Procedures 
e = Security 

e Operations 

e Exiting 

e Maintenance 
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B. SYSTEM STARTUP PROCEDURES 
1. Machine Configuration Requirements 

Due to the size of SARELTIS (over 800K in database structure and over 
500K in application program modules), the user must ensure that the machine is 
properly initialized with a CONFIG.SYS file which contains the following: 

* Buffers = 5 

* Files = 20 
If this file does not exist or does not contain the information listed above, the user will 
need to build or modify the CONFIG.SYS file accordingly. The user should consult 
the DOS Manual for the specific procedure necessary to create or alter a 
CONFIG.SYS file. Once the CONFIG.SYS file has been properly created/modified, 
the computer should be reset/booted to allow this new machine configuration to be 
installed. To reset the system, the user presses the following three keys 
simultaneously: <CTRL> <ALT> <DEL>. After the machine has been reset, 
the computer will ask the user for the current date and current time. [t is very 
important that the user enter the correct time and date into the system as the system 
time and date are used by many application program modules. After each date and 
time entry, the user should press the <ENTER> kev. 

2. Initial Program Loading 

If all has proceeded satisfactorily from the above section, the screen should 
display the following system prompt indicating that you are working from the hard 
disk, G2. 

Use the DOS MKDIR (make directory) command to create a directory to 
store the R:base 5000 programs by typing “MKDIR C:ARSK” at thé system prompt. 
Next, use the DOS CHDIR (change directory) command to change the working 
directory to the newly created R:base 5000 directory by typing “CHDIR C:ARSK” at 
the system prompt. At this point you are ready to load the R:base 5000 software if it 
is not already been installed. To load the R:base 5000 software [Ref. 5: p. 1.3 - 1.6], do 
the following: | 

Insert one of the R:base 5000 disks into floppy drive a. 


2. Copy all files from the disk to the newly created R:base 5000 directory by 
entering GORY ¢.. 


3. When all of the files have been copied from the floppy disk to the R:base 5000 
directory on your hard disk, remove the floppy disk from the floppy drive. 
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4. Repeat steps 2 through 4 until all R:base 5000 floppy disks have been copied to 
your hard disk. i 


After you have loaded the R:base 5000 database software, you are now ready 
to load the SARELTIS application. SARELTIS has been designed to operate from its 
own directory (DBDIR) which the user must create. To create another directory, use 
the DOS MKDIR command and type “MKDIR C:\DBDIR”. Next, you must copy 
the SARELTIS database and its application and ancillary programs to the DBDIR 
directory. 

The SARELTIS database is stored on 4 diskettes labeled: 

= SARELTIS 1 

oe 6 SARELTIS 2 

e SARELTIS 3 

e SARELTIS 4 
The application programs are stored on 2 diskettes labeled: 

-@ SARELTIS APPLICATIONS 1 

e SARELTIS APPLICATIONS 2 
The source code for the applications programs are stored on 2 diskettes labeled: 

e SARELTIS APPLICATIONS SOURCE CODE 1 

e SARELTIS APPLICATIONS SOURCE CODE 2 
_ The application program source code disks are provided for maintenance purposes 
only. The ancillary programs are stored on 1 diskette labeled SARELTIS 
ANCILLARY PROGRAMS. To load SARELTIS, do the following: 

Insert SARELTIS | into the A: floppy drive. 


2. Type the following DOS command: “RESTORE a: \DBDIR”. You will be 
prompted by the system to load SARELTIS 2, 3, and 4. 


Insert SARELTIS APPLICATIONS | into the A: floppy drive. 


4. Type the following DOS command: “RESTORE a: \DBDIR”. You will be 
‘prompted by the system to load SARELTIS APPLICATIONS 2. 


3. Insert the SARELTIS ANCILLARY PROGRAMS floppy disk into the A: 
floppy drive. 


6. Type the following DOS command: “COPY a:*.*”. 
You have now loaded the SARELTIS database and its application programs and are 
now ready to start the program. To start SARELTIS, enter the following at the 
system prompt: “SARSYS”. This will automatically take you to a security module that 


will ask for a user name and password. The default user name is “SYSOP” and the 
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default user password is “SARSYS”. If you wish to protect the system, see the next 


section on security. 


C. SARELTIS SECURITY 

One of SARELTIS’ ancillary programs is called “STARTUP.BIN’. This 
program is a compiled/binary program which prints the initial SARELTIS title screen 
and provides the security module to gain access to the system. As discussed in the 
previous section, the system has a default user name and password. These can be 
changed very easily bv the user (it 1s recommended that the user become somewhat 
familar with R:base 5000 and SARELTIS before changing the security). Using a text 
editor or a word processor in the non-document mode, open the ancillary program 
“STARTUP.PRG”. Approximately halfway through the program, you will find the 
following command: 

“if username eq “SYSOP” and userpass eq “SARSYS” then” , 
By changing “SYSOP” to another user name and altering “SARSYS” to another 
password, you can protect your own system. Once you have changed the user name 
and password, ensure that you write it down and store it in a safe place. To activate 
the new security password, you must recompile “STARTUP.PRG”. To recompile 
STARTUP.PRG, do the following: 


I. At the system prompt, type “RCOMPILE” to run the R:base 5000 program 
compiler. The system will then display the RCOMPILE menu listing eight 
possible options. 


2. Select the option to “Convert an ASCII command file to a binary command 
file’ by entering a “1”. The cursor should highlight the “(1)” next to the desired 
menu option. 


Ud 


Press the <ENTER> key to execute themmenu option. 


4. The system will ask you to enter the name of the ASCII command file to 
convert. Enter “STARTUP.PRG’ and press the <ENTER> key. 


5. RCOMPILE will then respond asking for the name of the backup file. Since we 
do not need a backup of this file, press the < ENTER> key. 


6. The system will then ask for the name of the binary command file that you wish 
to create. In the space provided, enter “STARTUP.BIN” and press the 
<ENTER> key. The system will now re-compile the program. At the 
completion of the compilation, RCOMPILE will return vou to its menu screen. 
Enter an “8” and press <ENTER®> to exit from the RCOMPILE program. 


You have now changed the security on the system and the new user name and 


password have been activated. To ensure that the system is fully secure, remove the 
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"STARTUP.PRG” file by typing the following DOS command: “ERASE 
STARTUP.PRG”. This will prevent any unauthorized users from discovering the new 
security password by merely typing out the “"STARTUP.PRG” file. If you wish to alter 
the security password after this point, you must copy the "STARTUP.PRG’ file to the 
hard disk from the SARELTIS APPLICATIONS SOURCE floppy disk. 


D. SARELTIS OPERATIONS 
1. Menu System Overview 
The man-machine interface for SARELTIS is a series of menus. Beginning 
with the SARELTIS Master Menu (Figure 4.1), the user can branch to a desired 
function. Each menu allows the user to return to the previous menu. All menu 
selections are grouped by functional area to provide the user with a more efficient 
operating environment. Examples of the remaining menu screens are presented in 
Figures 4.2 through 4.4 and Figures 4.7 through 4.13 Detailed functional descriptions 
of each menu option can be reviewed by examining Appendix D. 
2. Starting SARELTIS 
To start SARELTIS and to get to the main menu screen requires the user to 
type “SARSYS"” at the system prompt and pressing the < ENTER> key. As described 
in the security section above, the user must supply the correct user name and 
password in order to gain access to the system. Once the proper user name and 
password are entered, the system is automatically initialized and the SARELTIS 
Master Menu appears. The user is free to select any option by either moving the 
cursor up/down (using the arrow keys on the numeric pad) or by typing the actual 
number of the option desired to be executed. Once a selection is made, pressing the 
<ENTER> key will execute the option. The user will then be presented with another 
menu screen or an actual function will be performed. Short descriptions of each menu 
option are presented in the following section. 
3. SARELTIS Menu Options 
a. SARELTIS Master Menu (Figure 4.1) 
Selecting option (1), INPUT INFORMATION, displays the SARELTIS 
INPUT MENU (Figure 4.2). Option (2) calls the SARELTIS MODIFY MENU 
(Figure 4.3). The real-time query menu, QUERY INFORMATION MENU (Figure 
4.4), is displayed upon selection of choice (3). The REPORTS MAIN MENU (Figure 
4.7) is called when option (4) is chosen. Option (5) provides the user with the 
UTILITIES MENU (Figure 4.13). User-designed queries Or reports may be 
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constructed by selecting option (6), AD HOC QUERIES, which returns the user to 
the R:base 5000 command prompt “R>”. To exit SARELTIS, the user selects option 
(7), EXIT SARELTIS. 


SARELTIS MASTER MENU 
INPUT INFORMATION 
MODIFY INFORMATION 
QUERY INFORMATION 


REPORTS 

UTRETT iss 

AD HOC QUERIES 
PAL SAREL MS 





Figure 4.1 SARELTIS Master Menu. 


5. Input Information Menu (Figure 4.2) 

The user is provided with eight options to enter data into SARELTIS. The 
user has the choice of entering SAR information alone by selecting option(1) or 
entering SAR information with boarding information by choosing option (2). Option 
(3) allows the user to enter in multiple SAR units. Entering in boarding information 
alone is performed by choosing option (4). Selecting option (5) will allow the user to 
enter in additional vessel owners. Vessel intelligence and personnel intelligence are 
entered into the system by selecting options (6) or (7). To return to the SARELTIS 
MASTER MENU, the user selects option (8). 

c. SARELTIS Modify Menu (Figure 4.3) | 

SARELTIS data can be modified using one of the nine available options. 
Option (1) allows the user to update historical SAR information. By selecting option — 
(2), existing boarding information can be modified. Vessel information may be 
changed by selected option (3). Demographic data maintained on vessel owners and 
operators can be altered by choosing option (4). Ifthe user desires to change the name 
of an owner or an operator and this individual is both an owner and an operator, the 


name must be changed in both places. Information regarding Group Monterey SAR 
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SARELTIS INPUT MENU 
INPUT SAR INFORMATION (NO BOARDING) 
INPUT SAR INFORMATION WITH BOARDING 


INPUT MULTIPLE SAR UNITS 
INPUT BOARDING INFORMATION 


INPUT MULTIPLE VESSEL OWNERS 
PNrweilevissel LNT ELLIGENCE 

Nr cw PERSONNEL INTELLIGENCE 
RETURN TO MASTER MENU 





Figure 4.2, SARELTIS [Input Menu. 


units can be changed by selecting option (5). Options (6) and (7) allow the user to 
manipulate vessel and personnel intelligence information. The vessel HIN may be 
changed by selecting option (8) if it was previously entered incorrectly. To return to 
the MASTER MENU, the user selects option (9). 


SARELTIS MODIFY MENU 
MODIFY SAR INFORMATION 
MODIFY BOARDING INFORMATION 
MODIFY VESSEL INFORMATION 
MODIFY OWNER/OPERATOR INFORMATION 


MODIFY SAR UNIT INFORMATION 
MODE Y VESSEL INTEELIGENCE 


MODIFY PERSONNEL INTELLIGENCE 
MODIFY VESSEL HIN | 
RETURN TO MAIN MENU 





Figure 4.3 SARELTIS Modify Menu. 
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d. SARELTIS Query Menu (Figure 4.4) 

The real-tume query capability of SARELTIS is executed through the 
invocation of this menu. By selecting Option (1), the user can perform a vessel query 
based on vessel Hull Identification Number (HIN), vessel name, vessel number, or 
vessel official number. The query module will search the entire vessel table attempting 
to find potential matches to the user’s selection criteria. Figure 4.5 shows the chaining 
of searches through the database when selecting the vessel query option. Simularly, 
the user can search through the database using a person’s last name and first name by 
choosing option (2). The query program will find all potential matches and ask the 
user to select the correct individual to perform an intelligence/history check. Figure 4.6 
shows the chaining of searches through the database for the personnel query option. 
To return to the SARELTIS MASTER MENU, the user selects option (3). 


SARELTIS QUERY MENU 
VESSEL QUERY 


PERSONNEL OWER Y 
RETURN TO MAIN MENU 





Figure 4.4 SARELTIS Query Menu. 


e. SARELTIS Reports Main Menu (Figure 4.7) 

Reports in SARELTIS are broken down into mission/functional area 
groups that can be selected from the Reports Main Menu. This menu calls other sub- 
menus which represent the available choices within the specific mission/functional area. 
Selecting option (1) will allow the user the display the INTELLIGENCE REPORTS 
MENU (Figure 4.8). Option (2) will invoke the BOARDING REPORTS MENU 
(Figure 4.9). The SAR REPORTS MENU (Figure 4.10) is executed by choosing 
option (3). Option (4) will call the VESSEL REPORTS MENU (Figure 4.11). By 
selecting option (5), the user will see the available choices from the. PERSONNEL 
REPORTS MENU (Figure 4.12). Detailed descriptions of each report function can be 
found in Appendix D. To return to the MASTER MENU, the user selects option (6). 
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Figure 4.5 Vessel Query Search Chain. 
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Figure 4.6 Personnel Query Search Chain. 
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SARELTIS REPORTS MAIN MENU 
(1) INTELLIGENCE REPORTS 
(2) BOARDING REPORTS 
(3) SAR REPORTS 
(4) VESSEL REPORTS 
(5) PERSONNEL REPORTS 
(6) RETURN TO MAIN MENU 


Figure 4.7 SARELTIS Reports Main Menu. 


SARELTIS INTELLIGENCE REPORTS MENU 
VESSEL INTELLIGENCE ANALYSIS (EPIC) 
VESSEL PROFILE FOR INDIVIDUAL VIOLATIONS ANALYSIS 


PERSONNEL INTELLIGENCE SUMMARY 
RETURN TO REPORTS MENU . 





Figure 4.8 SARELTIS Intelligence Reports Menu. 


fi SARELTIS Utilities Menu (Figure 4.13) 

From the Utilities Menu, the user can initialize SARELTIS by selecting 
option (1). This program is automatically invoked at the start of any SARELTIS 
session and is also executed upon exiting the system. Option (2) will pack or compress 
the database to more efficiently use the existing limited hard disk space. It 
recommended that the user perform a pack of the database at least once per month. 
Prior to executing a pack of the database, the user should make a backup copv of the 
SARELTIS database in the event that an unanticipated error should occur during the 
packing process. Option (3) will display the procedures for backing up the database. 
In order to backup the database, the user must exit from SARELTIS (via option (7) 
on the MASTER MENU) and execute a DOS BATCH File located on the hard disk 
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Figure 4.9 SARELTIS Boarding Reports Menu. 
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Figure 4.10 SARELTIS SAR Reports Menu. 


called “BACKDBMS.BAT”. Since this backup will take a minimum of six floppy disks, 
the user should ensure that at least six floppy disks have been formatted prior to 
executing this program. To format a floppy disk, type the command “PATH UTIL” 


dey 


See eis VESSEL REPORTS MENU 
VESSEL SUMMARY LISTING 
Me sae --- Ov NERS OF SPECIFIED VESSELS 


MEsse--- OPERATORS OF SPECIFIED VESSELS 
RETURN TO REPORTS MENU 





Figure 4.11 SARELTIS Vessel Reports Menu. 
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See etie ly OPERATORS 


(5) RETURN TO REPORTS MENU 


Figure 4.12 SARELTIS Personnel Reports Menu. 


at the system prompt “C:>”, then type°-FORMAT A:” at the next system prompt 
“C:>", The system will prompt the user to insert the disks to be formatted into floppy 
drive A: and will indicate when the process has been completed. After ensuring that 
the user has prepared enough formatted floppy disks, the user is ready to execute the 
batch file. The user should type “BACKDBMS” at the system prompt “C:>” and 
press the <ENTER> key to execute the program. Follow the system prompts to 
remove and insert floppy disks. When the database has been backed up the program 
will automatically return the user to SARELTIS. In the unlikely-event that the 
database has “crashed” (e.g. nothing seems to work as advertised), the user may 
recover the database from the last back-up. Similar to the back up process, option (4) 
details the specific procedures in order to recover the database. Basically, the user 
must exit SARELTIS and at the system prompt type “RESTDBMS” and press the 
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<ENTER> key. This executes the DOS BATCH.File "RESTDBMS:BAT’. The user 
should follow any instructions that the computer displays on the screen. When the 
database has been fully recovered, the program will automatically return the user to the 
SARELTIS system. 


SARELTIS UTILITIES MENU 
INITIALIZE DATABASE 
PACK DATABASE 


BACKUP DATABASE 
RESTORE DATABASE 
RETURN TO MAIN MENU 





Figure 4.13 SARELTIS Utilities Menu. 


Ee. EXITING SARELTIS 

To exit SARELTIS and return to the computer’s operating system, select option 
(7) from the SARELTIS Main Menu. This will automatically close all open files and 
remove any temporary relations/tables and variables that have been created during the 
operation of ‘the system. The user should not exit the system by merely turning the 
computer off. Data could be lost or incorrectly entered upon losing system power. 
Once SARELTIS has completed closing all files and removing temporary tables and 
variables, it will return the user to the system prompt: “C:>”. Once the svstem 
prompt is displayed and the computer is no longer needed, the power may safely be 
turned off without danger to the SARELTIS database. 


F. SARELTIS MAINTENANCE . 

Maintenance to the SARELTIS application programs should not be undertaken 
by the casual user. Before performing any alterations to.the source code, the user 
should invest considerable time and effort in understanding the proper techniques of 
software programming and documentation. 

Due to the high degree of interdependencies between the program modules, the 


user must be aware that a seemingly minor alteration could have far-reaching unseen 
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effects. The system may appear to operate correctly, but in reality, the data being 
stored, modified, or printed could be inaccurate or even lost. 

Users desiring to modify the source code should have a thorough knowledge of 
relational database structures, structured programming techniques, and the R:base 
5000 command language. Prior to making any changes the user should ensure that the 
database is backed up and that copies of the applications programs have been made in 
the event that the modifications do not function properly. Above all, the user should 
NEVER attempt to make modifications to the source code without outside expert 
consultation and assistance. 

Due to the size and complexity of SARELTIS, the authors recognize that errors 
will be discovered. This will require that the source code or database structure will 
need to be modified. A knowledgeable user can use the source code listings found in 
Appendices E through P to assist in the understanding and modification of the 


program modules. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


A. SARELTIS RESULTS 

SARELTIS was originally conceived to merely replace Group Monterey’s 
corporate knowledge base and provide access to historical information to assist 
boarding officers and Search and Rescue Coordinators. What has evolved is a system 
with far more capabilities than originally designed. The concept of providing only 
summarized frequency data was transformed to providing the capability to perform 
limited decision support functions. The system still produces the required standard 
statistical reports but also provides vessel profiles of potential violators. These profiles 
examine individual violation codes and search the historical boarding information to 
determine bv violation the vessel type, use, hull material, propulsion, engine 
compartment type, fuel compartment, length, and year of construction of vessels 
found in violation of the specific code. 

The system also provides SAR and ELT planning by examining “high incident 
times” and “high incident areas”. By reviewing SAR historical. information, SAR 
Coordinators can better plan for crew augmentation or additional floating or land 
resources. Additionally, by examining where SAR cases and ELT missions have 
occurred, Group Monterey can better plan where to strategically locate or send their 
floating units. 

As discussed in Chapter II, the Coast Guard has been brought under scrutiny 
for potential harassment of the boating public by repetitively boarding the same vessel 
‘during a very small time interval. SARELTIS will provide the means to ascertain 
whether a particular vessel has been boarded in the operational area, when the vessel 
was lasted boarded, and what violations, if any, were discovered. 

One of the most important aspects of SARELTIS is the capability of providing 
real-time information and intelligence to boarding officers and SAR Coordinators. 
With timely information, boarding officers can better understand and recognize 


potential dangerous situations prior to going on board a vessel. 


B. CONCLUSIONS 
This thesis was the first step toward providing better and more timely 
information to Coast Guard operational units. Although SARELTIS has not been put 


48 


into production at Group Monterey, it will be implemented there in September 1987. 
It is anticipated that its use will stimulate further interest in the SARELTIS concept 


and create other needs not previously identified nor programmed in the first version. 


C. SUGGESTIONS FOR FURTHER RESEARCH 

This thesis successfully analyzed, designed, and implemented an automated 
intelligence system to assist small Coast Guard units similar to Group Monterey. The 
robustness of the system has been demonstrated in its preparation of over 45 standard 
reports for use by the small unit to assist in recordkeeping, intelligence reporting, and 
resource planning. Although not originally conceived, a limited decision support 
capability was built into the system. This seems to be one of the potential areas for 
further research. The reports designed in SARELTIS are by no means complete. It is 
envisioned that with the proper tools the SARELTIS database could be used as the 
basis for a comprehensive decision support system. 

Another area of potential research that was beyond the scope of this thesis was 
the interfacing to a central database. By telecommunicating the data collected by the 
system to a Coast Guard district office or area office, the SARELTIS concept can be 
transported to a larger geographic area. Terminals could be connected via MODEM 
to this online database to provide the most up-to-date information possible. 

Data entry into the system could also be improved. If SARELTIS could 
automatically receive intelligence information from local or federal law enforcement 
agencies, this would eliminate the necessity to manually enter the information via the 
computer keyboard. Additionally, if an optical mark boarding form was used by 
boarding officers, manual data entry could also be reduced with the aid of an optical 
mark reader. 
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APPENDIX A 
LOGICAL MODELS 


A Data Flow Diagram (DFD) 1s a method to graphically represent the logical 
functions of a system. Through the use of this very simple modeling technique, the 
analyst and user can examine the functions and interfaces of the existing system and 
easily define the components required within the proposed new system. These 
diagrams serve to summarize the processes and the flow of data within the logical 
model of the current methodology and to depict the functions of the proposed system 
independent of physical implementation details. 

Within the diagrams, processes or activities are depicted as uniquely identified 
circles, and the flow of data 1s represented by arrows. Rectangles indicate a source or 
destination for some type of information or product. The number included within a 
process circle uniquely identifies that process and serves as a means for indicating the 
subprocesses of a higher level process. Higher level processes have single digit 
numbers, while a subprocess number consists of the parent number(s) and the 
subprocess number. This numbering convention allows the subfunctions of a higher 
level function to be easily identified. {[Ref. 2: p. 282]. | 

A second tool that 1s very useful for the logical modeling of a database system 1s 
the Bachman diagram. This diagram depicts the entities that are present within the 
system, represented as boxes, and their interrelationships, which are depicted by arrows 
between the entities. Representing the logical structure of the proposed database, this 
diagram sets a foundation for the development of the physical database structure 
[Netao. paso a 

Within this appendix, the existing search and rescue and law enforcement system 
processes are depicted by Figures A.I through A.4, the proposed new systems as 
Figures A.5 through A.10, and the combined database logical structure as Figure A.I1. 
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Figure A.S Proposed SAR System - Level 0. 
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Figure A.6 Proposed SAR System - Level 1. 
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Figure A.7 SAR System SARELTIS Automation Boundary. 
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Figure A.8 Proposed ELT System - Level 0. 
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APPENDIX B 
SYSTEM REPORTS 


To assist Coast Guard Group Monterey with operations, planning and report 
generation, the SARELTIS prototype provides numerous hard copy reports. 
Procedures utilized to generate these reports are discussed in Chapter IV, the System 
User’s Guide. Examples of all reports produced by the prototype are displayed in this 
appendix as Figures B.1 through B.45. Table 3 provides a reference for the 
correspondence between the figures included in this appendix and the report names 


called within the program listing. 
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WPNS- 3 POB- 8 ADL 4 CHLD- 2 OWST-1 S/R: 6: 00~00a S/S: 7:00:00 
ee V5 v56 Vo7 tee V99 wee Vol ee v63 wes V65 V66 V67 V6 


=" x = « 
69 u70 u71 u72 073 u74 U75 u76 077 U78 U79 
= = x 
owner/operator was eve eeeence poomeane officer 
POAC ZA22222 02/25/1961 Grae 7330 :O0p = 6bm2 adams 
mry-002 122.46 W CG Group Monterey cas 36268 


bontecet Pe Monterey EeenG G 
merro= Lt POB= 12 ADLI- CHLD- 0O OWST-1 S/R: 6:00:00a S/S: °F 00:00 
be ye? vag ve ee 59 V60 vel V62 V63 64 V65 yee Vo7 V6 


= x 
ves U70 u71 U72 u73 u74 u75 u76 U7 u78 u79 
Be2eo5555333 ont 8 183 mon 12:00:00p bm2 adams 
mry~! 003 123.06 W CG Group Monterey ii eseZoo 
Ae tie Was MOnNtene A 


Ba c 
WPNS- 1 POB- 12 ADL 13 CHLD- 0O OWST-1 S/R: 6: 00200a S S/S: 7:00:00 
Vee — v56 i ee a9 V60 ee se V63 Vo4 V65 V66 V67 V6 


X¥ xX - 
69 U70 u71 U72 U73 u74 u75 u76 u77 u78 u79 
x aK 
belligerent operator 


Figure B.1 Boarding Listing. 
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US Coast Guard Grows Menterey 
Boarding Location Frequency 
For Major Grid Areas 
During Period 01/01/1980 - 01/01/1988 


Total Boardings - 8 

Date - 08/15/1987 Page - 1 
Grid Area North South East West Total te 
Designation Boundary Boundary Boundary Boundary Occurrences Boardings 
37980" 37.00 " taaesc les.co. slum 0 0.00 % 
6 37230 3200 122.00 122230 0 0.00" 

Cc 37.00 36580 123:..00 L232:30 0 0.00 4 

D 3700 So 50 122.30 123:.00 0 0.0GR 

E 37.00 56.30 122.00 lgz-30 0 0.00 % 

F 3700 36720 12130 ia2.00 1 12. 50m 

G 3626 36.00 Zen 00 123 320 1 12.500 

H 36.30 36.00 122.30 1Z3...00 2 25.00iea 

I 36.50 36.00 L200 122-30 it 12.50°3 

J 36.30 36.00 121.30 12200 0 0.00 % 

K 36.00 Bo. 50 122280 123%.00 0 0.00 % 

L 36.00 3530 122506 eZ . 30 0 0.00 % 

M 36.00 25 330 lZs0 22 . 00 0 0.00 % 

N 36.00 35.20 121.00 a2 0 0 0.00 % 

0 35-50 35200 T2200 123500 0 0.0082 

iF 35750 35.00 122200 E225 30 1 12.508 

9 23720 35700 T2a 0 122,100 0 O.0GR 

R Some 0 35.00 121.00 12180 1 12235GR 

5 Bono 30.00 120730 LZ) 200 0 0 .00R2 


Figure B.2) Major Grid Area Boarding Frequency. 
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Date - 08/15/1987 Page - 2 


Percentage 
Grid Area North South East West Total Total 
Designation Boundary Boundary Boundary Boundary Occurrences Boardings 
at 35m00 34.30 eee P22 oo 0 0.00 % 
U 25300 34.30 ies © 122.00 0 0.00 % 
V S5500 34.30 121.00 L230 0 0.00 % 
W 35.00 34.30 120.30 121200 0 Ose Des 
x 34.30 34.00 PZ eou fZZ200 0 O0e = 
% 34.30 34.00 121200 TZ .30 Q 0.00 % 
eemesOardings in Major Grid Areas.......scesceserns fon oi 20m. 
Meemmesodrdings Outside Grid Area.......--csercecceers Hae kc es 
SUMMPIUAEEI NG, gies 5 ne 5 co is seo ete tee ee tet esse toane 8 


Figure B.2. Major Grid Area Boarding Frequency. (cont’d.) 


65 


US Coast Guard Group Monterey 
Boarding Location Frequency 
For Minor Grid Areas (Coastline) 


During Period 01/01/1981 __= 01/01/1988 
Total Boardings - “ 

Date - 08/15/1987 Page - l 
Percentage 

Dotan eidees aoa oo Bound uee Occurrences Board 
=— ~ S 37.10 37.05 “lezecon m@amece = 0 0.00 & 
02 370 37.05 122715 W22R20 0 0. OOM 

03 37.05 37.00 122.20 122.25 0 0.09 2 

04 37.05 37.00 122.15 122 120 0 0.00 % 

05 37.05 37.00 iZ2210 122.15 0 0.00 % 

06 37.00 36.55 122s 1277520 0 0.00 % 

07 37.00 36.55 MA Alo 122.15 0 0.00 % 

08 37.00 36.55 122.05 1220 0 0.00 % 

09 37.00 36.55 122.00 122.05 0 0.00 % 

10 37.00 36.55 121.55 122.00 0 0.00 % 

ie 37.00 36.55 121450 2aR SS 0 0.00 % 

12 36.55 36.50 122.00 122.05 0 0.00 % 

13 36.55 36.50 121.55 122.00 0  OmommE 

14 36.55 36.50 121.50 124.56 0 0.00 % 

15 36.55 36.50 121.45. 121.50 0 0.00 % 

16 36.50 36.45 22200 122.05 0 0.00 % 

i 36.50 36.45 1 2aeasis 122.00 0 0.00 % 

18 36.50 36.45 121.50 121.55 0 0.00 % 

19 36.50 36.45 121.45 1209450 0 0.00 2 

Figure B.3 
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Minor Grid Area Boarding Frequency. 


Date - 08/15/1987 Page - 2 
Grid Area North South East West Total eo 
Designation Boundary Boundary Boundary Boundary Occurrences Boardings 
= an Peed Coe) «0 ie2sooe 122.08 0 0.00% 
21 36.45 36 .40 2 56 122.00 0 One 2% 
22 36.45 36.40 21.50 1 20NS'5 0 0.00 % 
23 36.45 36.40 121.45 121.50 0 0.00 % 
24 36.40 36.35 122.00 122.05 0 0.00 % 
25 36.40 36.35 121.55 122100 0 0.00 % 
26 36.40 36.35 121.50 128655 1  l4e29°% 
27 36.40 36.35 Ta eas i250 0 GeO. 2 
28 36.35 36 .30 121.55 122.05 0 0.00 % 
29 36.30 36.25 121.53 122.05 0 0.00 % 
30 36.25 36.20 121.52 122.05 0 ORDO) 2, 
31 36.20 36.15 121.50 122.05 0 OnOONs 
32 36.15 36.00 121.30 iZ2ne8 0 0-0 Cm 
33 36.00 35.40 121.15 121.45 0 G00) 2 
34 35.40 35.20 120.45 121.30 ean or. 
35 35.20 35.00 120.35 ie 0 0.00 % 
36 35.00 34.40 120.35 121.00 0 0.00 % 
37 34.40 B4e27 120.28 LZ 1e0 0 0.00 % 
Total Boardings in Minor Grid/Coastline Areas...... 2 28.57 % 
rs secs nner Grad AFORS er eereere oe 
Figure B.3 Munor Grid Area Boarding Frequency. (cont’d.) 
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US Coast Guard Group Monterey Boarding History 


Date- 08 toe 
Page- 


DATE Tae BONO VESSEL HIN BOLAT BOLONG POB 
O1/ls7so 9:00:00a mey-O01 TPT Lia ial 37.00N Il12Ze52W 8 
V54 V55 V56 V57 V58. V59 V6O0 V6l V62 V63 V64 V65 V66 V67 V68 
a a a a a a a a 
U69 U70 U71 U72 U73 U74 U75 U76 U77 U78 NOVIOLS eae ALCOHOL 
a 


x x x x 
owner/operator was abusive towards boarding officer 


BOARDING OFFICER - smith bm3 
DATE erie: neeee VESseL. Ban BOLAT BOLONG POB 
04/17/1985 eo) Oe =O06") 111 Tet 1 er Sovcon  l2Zioag 0 
V54 v55 Mee V a4 V59 V60 V6l V62 V63 V64 V65 V66 V67 V68 


U69 U70 U71 U72 U73 U74 U75 U76 U77 U78 NOVIOLS WEAPONS ALCOHOL 


x x x 
owner/operator was uncooperative and abusive towards boarding officer 


BOARDING OFFICER - adams bm2 


Figure B.4 Vessel Boarding History. 
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CME's) 


US Coast Guard Group Montere 
Courtesy Motorboat Examinations ( 


During the Period: 01/01/1980 =- 01/01/1988 
Date: 08/15/1987 Page: 1 
eooe ene a eee 
Ota ota 
CME Issue Year Occurrences CME 's Boardings 
metor to 1970 .. ; 0 0.00 % 0.00 % 
et — 1975 on cw wlttttne 0 0.00 % 0.00 % 
oe = 1979 16a wees 0 0.00 % On00 % 
MeO - 1981 ......-. 0 0.00 % 0.00 % 
Meee = 1983 ..cscecces 2 50.00 % PSes5 4 
Meee = 1985 ..cccceee 2 SOn00) 4 15.38 % 
Memeo — 1987 wc cece ces 0 0.00: % @.00t 4 
1968 - 1989 ......... 0 0.00 % 0.00 % 
after 1990 .......... 0 00 % .00 % 
Total CME's ........ er | 30.76 % 


ioral Boardings ...... 


Figure B.5 Courtesy Motorboat Examination Summary. 
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US Coast te Group Note y 
Nighttime / TG Operatio 
For the Period: 01/01/1980 - 01/01/1988 


Date: 08/15/1987 Page: 1 
Percentage 
Total 
Occurrences SAR Cases 
SAR CaS@S2 Se e= ees se 7 2 aa 
Daytime eee 5 41.67 % 
NEGHtC IMP .. <2 :.40 7 Senco 
Total SAR Cases ....... 12 
Boardings: 
Day 1 Mea rceen oie 4 50.00 % 
Naight came™ wees... ae 4 50.00 % 
Total BOardings <. ncn 


Figure B.6 SAR and Boarding Day/Night Summary. 
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US Coast Guard Group Monterey 
EPIC Code Statastical Analysis 
Fou slutormation Collecte 
During the Period: 01/01/1980 - 01/01/1988 


Date: 08/15/1987 Page: l 
BEE C Pegeenctage 
Lookout EE EeeCode coral 
Category Descr sp e1on Secetrrences rele Caregory 
it In the course of normal operations 5 42.86 % 


be on lookout for vessel 
described, determine course and 
speed; and notify requesting 
agency. Do not maintain | 
surveillance. Take no action that 
would make subject vessel aware of 
Pieehes ik. 


2 In the course of normal operations 0 0.00 % 
be on lookout for vessel 
Gescrabed, determine course and 
specad; MOLLY requesting agency. 
Maintain remote surveillance 
pending instructions. Take no 
action that would make subject 
Meoce. adware Of surveillance. 


3 In the course of normal operations 3 42.86 
be on lookout for vessel | 
Besecn I DeC. elt sigured notify 
Bete SING Agency board vessel, 
and, 1f£ evidence supports, seize 
vessel and arrest persons 
on board. 


oW” 


4 Conduct harbor check for vessel. i 14.29 
If found, maintain 
remote surveillance, nS ae 
requesting agency and awal 
mMinmtner anstructions . 


ov 


Figure B.7 EPIC Code Statistical Analysis. 


71 


Date: 08/15/1987 | Page: 2 


Percentage 
EPIC EPIC Code Total 
Category Description Occurrences EPIC Category 
5 Conduct harbor check, board vessel 0 0.00 % 


if locatedwana 15 

evidence supports, seize vessel, 
arrest persons on board 

and report to requesting agency. 


6 Conduct search for vessel in most 0 0.00 % 
appropriate area based on | 
information in pareemaes 4 of 
lookout message. Ir located, 
ner requesting agency,board 
V6Ssel,. and sPreew cence 
Supports, seize vessel and arrest 
persons on board. 


Figure B.7 EPIC Code Statistical Analysis. (cont’d.) 


US Coast Guard Group Monterey 
Vessel Intelligeneée 
For the Period: 01/01/198 - 01/01/1988 
AXX EPIC Codemcunnany as” 


So em es ts ee ee et ee ee ee eee ee oe 
em me ee ee ee ee ee ee ee ee ee 


Date: 08/15/1987 Page: 1 
Vessel Intelligence EPIC 
Name Date CODE 

miss alfa 03/01/1983 its 1 

miss alfa 05/05/1985 1 

miss cocaine 05/20/1986 1 

constance 01/09/1986 3 

miss barbs 02/05/1986 3 

miss cocaine 06/01/1985 eS 

miss cannibis O5/ lay ses 4 


Figure B.8 Summary of EPIC Codes Assigned. 
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US Coast Guard erouuee pigs 
) wieMe date Distress Sta 
During Period: 01/01/1980 - “51/01/1988 


Date: 08/15/1987 Page: iL 
Pemecencacc 
Total 
Occurrences SAR Cases 
Non-immediate SAR Cases ...ccccsccccees 4 3353392 
Immediate Distress SAR Cases ......... 8 66.67 % 
MOMS CASES 2... ccc ccc cece ccvecece 12 


Figure B.9 Immediate Distress Statistics. 
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US Coast Guard a one Monterey 
Vessel Intel ages 
For the Period: 517017198 - “01/01/1988 
**X*X Intelligence Remarks * 


Date: 08/15/1987 Page: 1 
Dene OL 
Vessel Name Intelligence Remarks 
constance 01/037 tess seen in panama carrying a large load 


of marijuana on the stern 


miss alfa 03/017 tases suspected of smuggling illegal 
firearms 
miss alfa 05/05/1985 vessel seen in Cartegena, Columbia 


taking on a load of marijuana 


miss barbs 02/05/1986 vessel stolen in 01/86 in san 
. francisco, ca 
suspected of being used in major 
drug operations 


miss cannibis 05/18/1985 vessel stolen in san diego, ca on 
04/14/1985 
miss cocaine 06/01/1985 . vessel suspected of hauling illegal 


contraband and child pornography 
armed and dangerous 


Figure B.10 Vessel Intelligence Remarks Summary. 
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US Coast Guard Group Monterey 
Operator Table Due 
For DOB's: 01/01/1920 - 01/01/1945 


Last Names Beginning - a Ending - z 

Date: 08/15/1987 Page: 1 
allen , david Ge 800 Casanova Ave 

01/22/1942 408-345-6789 Monterey CA 93940 
benson er Lenane Gr 12 pebble st 

06/07/1923 408-243-9870 pebble beach CA 94956 
cranston ; cae S. 1234 caster way 

09/23/1923 408-123-9678 Salinas CA 93687 
fairbanks , stale lve 345 hollywood blvd 

04/15/1933 123-849-2536 hollywoo CA 94364 


Figure B.11 Operator Listing. 
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US Coast Guard Group Monterey 
Operators of Vessels Summary 


Operacor 
Address / Telno 
800 Casanova Ave 
Montere 


CA 93940 408-345-6789 


Date: 08/15/1987 
Page: i 
Vessel 

Name / HIN 
miss foxtrot 
666666666666 


800 Casanova Ave 
Montere 


CA 93940 408-345-6789 


miss alfa 
LiliiiirYyrrs 


Vessel 
Operator 
allen 
da 
DOB - 01/22/1942 
allen 
da 
DOB - 01/22/1942 
benson 
richar ae 


DOEs §6/07/1923 


12 pebble st 
pebble beach 


CA 94956 408-243-9870 


cranston 


ralph S 
DOBR= Os, 23/ Tozo 


1234 caster way 
salinas 


CA S560) 408-123-9678 


miss charlie 
333333333333 


flinstone 


re e 
DOB - 03/15/1945 


123 boulder. dr 
bedrock 


Ca gieiZ 345=334=S339 


‘miss alfa 


lilllillT ee 


£lintstone 
re i 
DOB - 03/15/1945 


123 boulder dr 
bedrock 


CA er PedeZ 345- ae e520 


john q. 
DOB - 01/01/1901 


ce heroin way 


ouug $3545 


PZ 123-456-7890 


miss cocaine 
TUTTT TT Te 


ag Ls 


ichard Ce: 
DOB = 2/20/1960 


654 bimptom way 
las vegas 


NV 07896 204-980-7890 


miss charlie 
333333333333 


simmons 
richara 


ol 
Oba ez, 20/268 


654 bimptom way 
las ee as 


NV 896 © 204-980-7890 


miss echo 
S5SS5RE5 555m 


simpson 
GEeg iE 
DOB - 04/06/1957 


6789 bumpton ave 
monterey 


CA 93940 408-234-9678 


miss delta 
444444444444 


Figure B.12 Operators of Vessels Summary. 
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US Coast Guard Group Montere 
Operator Query Summary Repor 


ae eee i ees eee ee ee 
SS Gly a GE GE on ee 


Last Name: 
First Name: 


moa oo Sa me ee a eS 
== oo ES SS Se ee SS OS Oe 


Date: 


flinstone 
fred 


Tngvewat: £ 


Date of Birth: 


Street Address: 
CHiEy : 


03/15/1945 


123 boulder dr 
bedrock 


Siecees Cx 


Zip Code: 
Telephone: 


STom 
349-554-3333 


Figure B.13. Operator Query Report. 


US Coast Guard enouR pacer ey 
Owners Table D ey 
For DOB's: 01/01/1940 - 01/01/1960 


Ode Ole sO 


Last Names Beginning - a Ending - z 

Date: 08/15/1987 Page: l 
allen , david g- 800 Casanova Ave 

01/22/1942 408-345-678 Monterey CA 93940 
edwards , aeouge - 34 wedewood manor 

06/06/1944 408-567-3456 pacific. grove CA 94765 
flintstone , d fee 123 boulder dr 

03/15/1945 345-334-3333 bedrock CA QLomrZ 
harri ; k. 12 small way 

nay eROYeNO 5 2 408-576-9078 watsonville CA 93945 
williams ScoOmE aes 345 anchor way 

11/11/1952 415-234-5647 san francisco CH 91067 


Figure B.14 Owners Listing. 


Vs 


US Coast Guard Group Monterey 
Owners of Vessels Summary 


800 Casanova Ave 
Montere 
CA 93940 


408-345-6789 


Date: 08/15/1987 
Page: Ht 


Vessel 
Name / HIN 
miss alfa 
LAs) lededel 


ebble st 
a le beach 
CA 94956 


408-243-9870 


Cranston 


ralph Ss 
DOB - 09/28/1923 


1234 caster way 
salinas 
GA 93687 


408-123-9678 


miss charlie 
333333333555 


edwards 


pease Wee 
OB - 06/06/1944 


34 wedewood manor 
pacific SEOUe 
CA 9476 


408-567-3456 


miss delta 
444444444444 


flintstone 


fred e 
DOB - 03/15/1945 


123 bouldér de 
bedrock 
CA 91912 


345 - 334-3888 


miss kilo 
999999999999 


12 small way 


‘watsonville 


CA 93945 


408-576-9078 


miss foxtrot 
666666666666 


12 small way 
watsonville 
CA 93945 


408-576-9078 


miss alfa 
TIT it ee 


harris 

sa 

DOB - 12/10/1952 
harris 

sa 

DOB - 12/10/1952 
pabeee 

JO 


123 heroin way 
and cit 


1234 123-456-7890 


miss cocaine 
VUTVVAT IT aaa 7 


rivera 


edward W 
DOB - 01/01/1901 


123 payton place 
pebble beach 
CA 


simmons . 
euchar d 
DOB - 12/20/1960 


654 bimptom way 
las vegas 
NV 07896 


204-980-7890 


Figure B.15 Owners of Vessels Summary. 
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US Coast Guard Group Monterey 
Owner Query Summary Report 


Date: 08/15/1987 
Last Name: harris 
First Name: sam 
Tacha dee) KK 
Date of Birth: 12/10/1952 
Street Address: 12 small way 
City: watsonville 
_ State: CA 
Zip Code: 93945 


Telephone: 408-576-9078 


Figure B.16 Owner Query Report. 
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US Coast Guard Group Monterey 
Personnel Intelligence ae | basting 
For the Period: 01701/1980 - 01/01/1988 


Dace: 08 / toe 


rage. 
Date of 
Last Name First Name MI DOB Intelligence 
allen ,,. david Chis 01/22/1942 08/08/1984 
suspected of illegal narcotics smuggling 
considered armed and dangerous 
allen ,. davic gram Olena / 1642 03/04/1983 
suspected of being involved in arms smuggling ring 
considered armed and dangerous 
harris , sam - -. 01/01/7901 02/03/1983 
suspected of possession of stolen vessels 
public a of johe q.- 01/01/1901 07/15/1986 
suspected of illegal drug trafficking | 
rivera , edward a. 01/01/1901 04/06/1986 
suspected of being involved in illegal arms smuggling 
rivera , ._ fernando OW. 04/06/1947 04/08/1985 
suspected of illegal narcotics smuggling 
rivera pablo £" 01/01/1901 04/06/1986 


armed and dangerous 
fugitive from prosecution 
contact FBI upon detention 


Figure B.17 Personnel Intelligence Listing. 
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US Coast Guard Group Monterey 
Personnel Query Summary Report 


a ey GL a eee eee ee ee ee ee se, a a a SS SS a ee ee ee. 
= a ee a a es ee ee eee ee ese ee en ae Se ES SSS 


Date: 08/15/1987 


Last Name: public 
Mel test Name: JOnn 
Middle Initial: q 


DOB: O1401/1901 


Street Address: 123 heroin way 
Gleycmariuc. Clty 
_ State: CA 
Zip Code: 12345 


Telephone: 123-456-7890 


Figure B.18 Personnel Query Report. 


US Coast Guard Group Monterey 
Personnel Intelligence Information 


a eee es ces ce i ee ee eee ee ee ee 
2 ee ee SS ce es ee ee Ee eS eee a a ee SSS iE EE SS ESE OS eS SS = 


Date: 08/15/1987 
Page: 1 


DATE OF INTEL LAST NAME _ FLRST NAME Bie DOB 
07/15/1986 peolic, john q O1701/ 1901 
suspected of illegal drug trafficking 


Figure B.19 Personnel Intelligence Report. 


8] 


US Coast Guard Group Monterey 
Vessel SAR Case Summary Listin 
For the Period: 01/01/1980 - 31/01/1988 


a ee OC ee ees ee ee ee ee es ee ee ee se Se Se es ea ae ee ee ee ee ee es eee 
SS coy A SSS ee es ee ee ee ee ee ce ee ee eee ee ee ee ae ee ee 


Date: 18/1 / 


Page. 
Vessel 
HIN 
eB a eB a EE 01/15/1980 mon 5:00:00a ST OGRN TZ) aS2 
FLDR-mry-O01 IMMED-y NOD-taking on water S/R- 6:00:00a 
UCN-O0000001 OFFSHORE- 2 POB- 8 S/S- | OT ee 
MUCN- SEAS- 3 SWLS- 2 WIND DIR-180 SPD- 15 VISDIST-10 
LLEECLLLCLZ Oe 02/25/1981 fea T3'0 -00p 36.29 N 122.46 W 
FLDR- Bn -002 IMMED-n NOD-mast broke S/R- 6:00:00a 
UCN- 00000002 OFFSHORE- 3 FOB= eZ S/S- 7:00:00p 
UCN SEAS=- 7 SWLS- 5 WIND DIR-120 SPD- 12 VISDiST= "3 
33335 353e3sss3 03/18/1983 mon 12600:00p 36.269N 123.06 W 
FLDR-mry-003 IMMED-n NOD- oEeaee stopped S/R- 6:00:00a 
UCN-O00000003 OFFSHORE- POB 12 S/S- 7:00:00p 
MUCN- SEAS- 6 suis- 8 WIND DIR=-270 SPD- 15 VISDIST-10 
t444444-c4d4 04/21/1984 fri 10:00:00p 35.20) N 122.1599 
FLDR-mry-004 IMMED-n NOD-broken mast S/R- 6:00:00a 
UCN-00000004 OFFSHORE- © ‘POB- 3 S/S- 7:00:00p 
MUCN- SEAS- 12 SWLS- 15 WIND DIR-220 SPD- 25 VISDIS Tee 
55 5S coe smaoe 05/22/1985 sat 11:12:00p 36.28 N 1Z2..35 0 
Ene IMMED-y NOD-taking on water S/R- 6:00:00a 
UCN-O00000005 OFFSHORE= 1 FPOB- 4 S/S- 7:00:00p 
MUCN- SEAS- 6 SWLS- 10 WIND DIR-260 SPD=- 15 VISDISi = 
3333338335205 06/15/1985 sat 11:00 :00p SO +S (a = aneae W 
FLDR-mry-010 IMMED- NOD-man overboard in surf S/R- 5:00:00a 
UCN-O0000010 OF FSHORE- lL POB- 5 S/S- 7:30:00p 
MUCN- SRAS= 2 SWLS-° 4 WIND DIR-300 SPD- 5 VISDIST=-10 
666666666666 04/16/1986 fiat 2:00:00a 36..368N 121.59 W 
FLDR-mry-012 IMMED- NOD-vessel on fire S/R- 6:00:00a 
UCN-00000012 OFFSHORE= 1 POB- 5 S/S- 10 eae 
MUCN- SEAS ~ 2 SWLS- 3 WIND DIR-Z280 SPD- 3 VISDIST-15 
666666666666 06/13/1386 sat i: 00:00p 36525en 122.1538 
FLDR-mry-006 IMMED- NOD-fire on board S/R- 6:00:00a 
UCN-00000006 OFFSHORE- 6 POB- 4 S/S- 7:00:00p 
MUCN- SEAS- 3 SWLS- 5 WIND DIR-330 SPD- 15 VISDIST=-10 


Figure B.20 SAR Listing. 
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US Coast Guard Group Monterey 
SAR Case Frequency Statistics 
For Months and Years 
01701/1980 - 12/30/1986 


Date: eye 1987 


rage. 
PeGeemrage 
Total Number Total 
Month SAR Cases SAR Cases 
JSD Ue 1 9.09 % 
PEDrUaty ... cee ceees 1 9.09 % 
PGRSC MMA ls 5 oo oc ee cs os 1 9.09 % 
oo te ee Z 18.18 % 
SW oo o> 6 1 9.09 % 
Me al. sos Peet eic, ens 3 D7 ae 
Dy Sees 6s Peo tatemteeae« 1 9.09 % 
PII MMs 6 occ ea ees es il 9.09 & 
MEMECMOCK 94... 005000 - 0 0.00 % 
IG OMCT Foss s sc veccceee 0 0. 00uz 
November ....... ee ; 0 DimOer = 
Mee@ember ..... cco cccees 0) O00) 
Total Number 

Year SAR Cases 

WSO) fase... ses eee. 1 

AS) CMMIPES tac eile atreteheetere,« « i 

1982 *#e#ee##s###s###st#se#s#s# #@ @ @ 0 

MoS Sa Pte ee ate ons Ht 

1G Se. :. SR... 2 

Isis er Z 

ISS SMies «se s Ss 4 


Figure B.21 SAR Months and Years Frequency Statistics. 
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US Coast Guard Group Monterey 
SAR Case Day of the Week Frequency 


Date: 08) 1 oe 


Page: 

Day of . SAR Percentage 
the Week Occurrences Total SAR Cases 
Monday ........00. —— 2 16.67% 
TUSSEAY .. xcs oc: eee aa) 0.0082 
Wednesday ...... iis. 0 0.00 % 
Thurns@age Jes s spel eee 0 0. 00m 
Fradayaia ce. 2% cleeuhucae 5 41.67 % 

Sa tun@eyeerne cue ss so cue 5 41.67 % 
SUNGAY Tsai. « «ierencehenstene 0 0.0052 


Total SAR Cases 
Bsa lla COC ais 6 6: a..0naccceaeaenne LZ 


Figure B.22 SAR Day of Week Frequency Statistics. 
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US Coast Guard ore Monterey 
San Case Location Frequency 
For Major Grid Areas ~ 
During Period 01/01/1980 . - 01/01/1988 


Total SAR Cases - eZ 
Date - 08/15/1987 Page - 1 
Percentage 
a peondary sours soumeary Bouneeey Securely s SAR Cases 
— 37.30 37.00 122.30 123.00 © 0 0.00 % 
B 3730 37.00 122.00 12ene0 0 0.00 % 
c 37-00 36.30 123.00 123.30 0 Onoce 2 
D 37.00 36.30 V22650 123.00 0 0.00 % 
E 37.00 36.30 12200 122.30 0 Odom 
F 37.00 36 .30 1.30 122500 4 33.33 % 
G 36.30 36.00 123100 123.30 1 8.33 % 
H 36.30 36.00 122m 0 123.00 2 16.67 % 
I 36.30 36.00 122.00 122.30 2 16.67 % 
J 36.30 36.00 eaves 6 122.00 0 0.00 % 
K 36.00 35.30 122650 123.00 0 On00n- 
2 36.00 35.30 122.00 122.30 0 8) 00) 
M 36.00 35.30 121.30 122.00 0 Gm00) 2 
N 36.00 35.30 ZL (OV VAIS 6 0 Oneg 3 
0 35.30 35.00 122660 123.00 0 O70a 2 
P 35.30 35.00 122300 122550 1 Been 
Q 35.30 35.00 121.30 122500 0 0.00 % 
R 36n3 35.00 121.00 121.30 1 8.33 % 


Figure B.23 Major Grid Area SAR Frequency. 
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Date - 08/15/1987 Page - 2 


; 7 Percentage 
Grid Area North south East West Total Total 
Designation Boundary Boundary Boundary Boundary Occurrences SAR Cases 
S 3550 So.0u 120.30 121200 0 0.00 % 
it 35.00 34.30 122.00 122720 0 0.00 % 
U 35 200 34.30 PZ oe 22.00 0 0.00 % 
V 35.00 34.30 121208 12159 0 0.00 7 
W 37. 00 34.30 120.38 122.00 0 0.00 % 
x 34.30 34.00 i2i.36 baz o 0 0.00) 4 
x 34.30 34.00 Lae Laie S0 0 0.00 % 
Total SAR Cases in Major Grid Areas.....cseccceeees abl 91.67 2 
Total SAR Cases Outside Grid Areas........ Ss 6 see 1 8.33 4 
Total SARVEGases... sc 0s 0s « a ieiale «so MEMES 9/6 tere LZ 


Figure B.23. Major Gnd Area SAR Frequency. (cont‘d.) 
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US Coast Guard Group Monterey 
SAR Case Location Frequency 
For Minor Grid Areas (Coastline) 
During Period 01/01/1980 - 01/01/1988 


Total SAR Cases - EZ 
Date - 08/15/1987 Page - l 
Percentage 
Miionation weary Boundary Ba teen as Gary a ee SAR Cases 
— PI cuhOSIm 122.20. i22.258  ##— 0 0.00 & 
02 37.10 37.05 2 2raeS 122520 0 0.00 % 
03 37.05 37.00 P2220 122.25 0 0.00 % 
04 37.05 37.00 102 Zen 122.20 0 O50 Chez 
05 37.05 37.00 E22 122.15 0 0.00 % 
06 37.00 36.55 1223S 122420 0 0.00 % 
07 37.00 36.55 122.10 2 Zee 0 0.00 % 
08 S700 36.55 122.05 122.10 0 0.00 % 
09 37.00 36.55 122.00 122.05 0 0.00 % 
10 37.00 36.55 121.55 122.00 0 0.00 % 
11 37.00 36.55 121.50 120s 0 0.00 % 
12 36.55 36.50 122.00 122.05 0 On00m- 
13 36.55 36.50 al as 122.00 0 O.00n2 
14 36.55 36.50 121.50 eZee oie 0 0.00 % 
15 36.55 36.50 121.45 121.50 0 0.00 % 
16 36.50 36.45 122.00 122.05 0 0.00 % 
-7 36.50 36.45 121.55 122.00 0 0.00 % 
18 36.50 36.45 121.50 121.55 Ht 8.33 % 
19 36.50 36.45 121.45 121.50 0 0.00 % 


Figure B.24 Minor Grid Area SAR Frequency. 
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Date - 08/15/1987 Page - 2 


. Percentage 
ec ieweeeak Seana a. adtndery oun ae SAR Cases 
eC 36:45 36:40  iaenco “lieemoceee or 0 0.00 % 
ZA 36.45 36.40 121.55 1122800 0 0.00 2 
Z2 36.45 36.40 121.50 121.55 0 0.00 % 
23 36.45 36.40 121.45 121.50 0 0.00 % 
24 36.40 36.35 12200 122.05 0 0.00 % 
25 36.40 36.35 121.55 122360 3 25.00 % 
26 36.40 36.35 121.50 121.55 0 0 00% 
ZT 36.40 36.35 121.45 121.50 0 0.00 % 
28 36.35 36.30 121.55 122.05 0 0.00 4 
29 36.30 36.25 121.53 122.05 0 0.00 % 
30 36.25 36.20 V2 toe 122.05 0 0.00 % 
31 36.20 36.15 121.50 122.05 0 0.00 % 
52 36-15 36.00 wd 30 122). 0@ ° 0 0.00 % 
33 36.00 35.40 ites 121.45 0 0.00 % 
34 35.40 35.20 120.45 121.30 ‘1 8.33 % 
35 35.20 35.00 120.35 121 ere 0 0.00 % 
36 35.00 34.40 120.35 121200 0 0.00 % 
37 34.40 34.27 LZ0n26 121.00 0 0.00 % 
Total SAR Cases in Minor Grid/Coastline Areas...... 5 41.67% 
Total SAR Cased. sc ssc.) nn eee i a 


Figure B.24. Minor Grid Area SAR Frequency. (cont‘d.) 
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US Coast Guard Group Monterey Vessel SAR History 


Date-08/15/1987 


Page- 1 
SARDATE SARTIME FOLDERNO VESSEL HIN UCN SMUCN POB 
01/15/1980 9:00:00a ee OOo LITT iriiid 00000001 8 
NOD - Ean on water IMMED? het 
LAT - 37.00N LONG - 121.52W DISTOFF(NM) - 2 


SARDATE SARTIME FOLDERNO VESSEL HIN UCN MUCN POB 
yey tss6 )«=611:35:00p iy Ot eeeoiet et 11 iat OO000011 : 
NOD - ee ae goOPRS Ine D? =n 
ee SO ea ONG - 121.56W DISTOFF(NM) - 1 
SARDATE SARTIME FOLDERNO VESSEL HIN UCN MUCN 
08/01/1986 2:00:00p ie 200 itil ililil 00000008 900000002 6 
NOD - vessel on fire IMMED? - ¥ 
LAT - 36.47N LONG - 121.52W DISTOFF(NM) - 2 


Figure B.46 Vessel Query SAR History. 
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US Coast Guard ee Monterey 
SAR Case Location Frequency 


For Small Boat OPS Area 
During the Period: 01/01/1980 - 01/01/1938 
Total SAR Cases - sy 
Date: 08/15/1987 Page: l 
Perceénrace 
Total 
Area Occurrences SAR Cases 
Inside Small Boat OPS Amea.........:.:; 7 58 (2cma 
Outside Small Boat OPS Area ........... 5 41767 ™% 
ee ee ARR NOTE A*K 2 ti(“(<i‘“ ‘C;‘;‘(<‘<‘(‘<‘( WC 
The Small Boat OPS Area is defined aS the area beundeces, 
the following coordinates: 

South North East West 
Boundary Boundary Boundary Boundary 
36-10 N 36- aeN 121-40 W 122-20 W 
36-18 36-37 121-40 122-228 
56-57 36-48 121-40 122-39 
36-48 56—5 121-40 i227 22 
36-55 36-08 121-40 122-40 
36-57 37-00 121-40 122-45 
37-00 37-05 121-40 122-45 
37-05 37-10 121-40 122-38 


Figure B.26 Small Boat Operations Area SAR Frequency. 
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US Coast Guard Group on eee 
SAR Case Times Summar ee hours ) 
For the Period: 01/01/198 = "01/01/1988 


Date: 08/15/1987 


Number 
ex Cases 
Examined 


Total Time 
5 ESOS NIGICE se ielieianes «2 « 


Total Time to 
iS Being on Scene 


Total Time to 
Being Alongside 
14 Distressed Vessel . 


Total Time in 
Searching for 


14 Distressed Vessel . 
ieee Time 
in Towin 

1h Distressed Vessel . 


icine 27 


Page: 1 
Total Average Maximum Minimun 
Unit Time Unit Time Late Tame 
Expended Expended Expended Expended 
Tie (on 14.5 Zee 
Zoe cS S75 0.6 
34.7 205 bila: O28 
PS. 3 029 a 0.0 
40.8 Sn no ae 


SAR Unit Time Summary. 
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US Coast Guard oroeR Monterey 
Boarding Location Frequency 
. For Small Boat OPS Area 
During the Period: 01/01/1980 - 01/01/1988 


Total Boardings - 8 
Date: 08/15/1987 Page: l 
Percentage 
Total 
Area Occurrences Boardings 
Inside™Small Bod@t™OPs Area ........026- S 37.50 
Outside Small Boat OPS Area ........... 5 62.50m 


ee ae RRA NOTE *®R 
The Small Boat OPS Area is defined as the area bounded by 
the following coordinates: 


South North East West 
Boundary Boundary Boundary Boundary 
36-10 N 36-18 N 121-40 W -L22sZ20a 
36-18 36-37 121-40 122525 
36-37 36-48 121-40 LZ22e30 
36-48 ' 36-53 121-40 122-35 
Seas Sar / 121-40 122-40 
36-57 37-00 121-40 122-45 
37-00 S700 121-40 122-45 
37-05 37-10 121-40 iZ2-<e 


OZ 


Figure B.47 Small Boat Operations Area Boarding Frequency. 


US Coast Guard Gr OUR Bonwerey 
Vessel Intell eae 
For the period: 01/01/198 = 01/01/1988 
Stolen Vessel List 


Date: 08/15/1987 Page: uf 

| Vessel Date of 

Name Intelligence 

miss barbs 02/05/1986 
miss cannibis 05/18/1985 
miss cocaine 06/01/1985 
miss cocaine 05/20/1986 
miss everyday 08/08/1985 
miss mariposa 05/06/1986 


imieure B29 Stolen Vessel Listing. 
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US Coast Guard Cr oune Monterey 
1 


Boarding Unsafe Condition Summar iy 
For the Period: 01/01/1980 - 01/01/1388 
Total Boardings - 8 
‘Date: 08/15/1987 Page: 1 


_ Percentage of 
Unsafe Condition Occurrences Total Boardings 


Unsafe Conditions --- 


Terminated Use ans, - see 8 37 50es 
Cornectedwonmehe. Spottt, 0 0.00 % 
Overloadéd ....... <<. <isuieeee 2 25,108 2 
fiek in Sitges .:.... ae 3 37.50 % 
Fuel Leak --- 

Engine or Fuel System ..... 2 Z5.00 % 
Manifestly Unsafe Voyage .. 3 37 ooe 
Hazardous Bars | 

GeGheb istrict) <i, cee 1 25 Ou 
Piigehol Condaitiion ..2.seee - 6 15. 00u7 
Obie <.<etinc le eee l i2250e2 
Total Unsafe Conditions Za 

Warning Issued... ...04. eats 4 50.00 % 
Noo Violation Bound ner 0 0.00 % 


Figure B.30 Boarding Unsafe Condition Summary. 
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US Coast Guard Group Monterey 
Demographics for Violation --- 54 


N 
For the Period: O17 01/1980 - 01/01/1988 
xk Vessel Construction Type * 


Date: 08/15/1987 | Page: L 
Pemeenwage Perceniage 

Construction Total Total 

Type Occurrences Violation-54 Boardings 
open 2 25.57% Zoe 
closed 5 71.43 % 62.50 % 
unknown 0 0.00 % O00" % 
Total Occurrences. 7 S750 '< 
Total Boardincs... 8 


Figure B.31 Violation Summary by Vessel Construction Type. 


US Coast Guard Group Monterey 
Demographics for Violation --- 5 
ead 
For the Period: 01/01/1980 - 01/01/1988 

*k*X Vessel Engine Compartment Type * 


Date: 08/15/1987 . Page: 1 

Engine Percentage Pereeneage 
— meLota. Total 

Occurrences Violation-54 Boardings 

open 3 42.86 % S98, 50) 4 
closed 4 57.14 % 50.00 % 
unknown 0 0.00 % . 0.00 % 
Total Occurrences. 7 37250 % 
Total Boardings... 8 


Figure B.32 Violation Summary by Engine Compartment Type. 
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US Coast Guard Group Monterey 
Vessel Summary Listing 


Date: 08/1 (iar 


Page: 
Vessel 
HIN 
LILLL IU TYP-1 6USESZ a Be eckat MD-supra YR-1981 TNSeaeee 
miss alfa LEN- Seieat) Shy) VALUE- $75,000.00 
TRL@Li 11 CONST=-2 ENG-2 FUEL<1 HULL=3 PROP=-2 
- COLORS: CB-blu DK-brn HL-red TR-wht SL-unk SL#- 
34£56— CME-n YR- MSTS-- S/S- H/P-120 
catalina, ca MRKS- 
333333333533 TYPe2 USE=1% fiksea — MD-supra YR-1980 TNSsaee 
miss charlie LEN- eae) TAI) VALUE- $45,000.00 
SSo55333 CONST=2 ENG- PUEL-2 HULL-4 PROP -3 
3333333353 Cokes - rae DK-blu HL-brn TR-wht SL-unk SL#- 
ki3we CME-- YR- MSTS-0O S/S- H/P-170 
monterey, ca MRKS- 
777777777777 +=«“TYP-1 USE-1 MK-trawler  MD- ¥R-1967 TNS- 17 
miss cocaine LEN- oot ae. 4(in) VALUE- $25 ,000 70 
MAE TELL COhS R= 2 ENG-2 FUEL=-2 HULL=-3 PROP=-3 
COLORS: CBewht DKewht HL-wht TRewht SL-unk SL#- 
CME-n YR- MSTS-0 S/S- H/P=250 
moss pe ca Pinivoe 
444444444444 TYP- -3 USE-2 MK- ey -37 YR-1983 TNS- 8 
miss delta LEN- Sian 4 ( (in) VALUE- $42,000.00 
44644444 CONS ENG-1 burt ut HULL-1 PROP-1 
4444444444 COLORS: CB-ewht DK-brn HL-blu TR-wht SL-brn SL#-12 
CME@-n YR- MSTS-2 S/S- H/P-40 
moss landing, ca MRKS- 
SIS SSoIoo0oD 06 Url USERZ. “NGeocton MD-whaler YR- -1984 5 one 1 
miss echo LEN- 2 Seine) S117) VALUE- $6,000.00 © 
Seb 5555 CONST=-1 ENG-1l RUE aL HULL=2 PROP-1 
5555555555 COLORS: CB-unk DK-unk HL-wht TR-blu SL-unk SL#- 
CME-- YR- MSTS-0 S/S- H/P-80 
las vegas, nv MRKsS- 


Figure B.33 Vessel Listing. 
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US Coast Guard Group Monterey 


Demographics for Violation --- 54 


Numberin 


For t the Period: 01/01/1980 = 01/01/1988 


* Vessel Fuel Compartment Type * 


Date: 08/15/1987 Page: i 

Fuel Percentage rercentage 
gees: tment Sota Tota 

ype Occurrences Violation-54 Boardings 
open 4 57.14 % 50.00 % 
closed 3 42.86 % 37.50 % 
unknown 0 0.00 % 0.00 % 
Total peeeerences. q Byers 
Total Boardings.. 8 


Figure B.34 


Violation Summary by Fuel Compartment Type. 
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US" Coast Guand GuoupsMenteuey 
Demographics for Violation --- 54 


Number 
For the Period: NO1/01/1980 - 01/04/1988 
* Vessel Hull Material Type * 


Date: 08/15/1987 Page: 1 
Hull Fenceneace Percentage 
Naterias _ Newal Total 
Type Occurrences Violation-54 Boardings 
wood 1 14.29 % 12250 2 
aluminum 1 14.29 % 12.5052 
steel 3 42.86 % 37., SOG 
fiberglass Z Zon Sl 2580082 
rubber ,vinyl 0 On0Gr 2 0.00 
cement 0 0.00 % 0.00 % 
other 0 0.00 % 0.00 % 
unknown 0 0008 0.00 % 
Total Occurrences. 7 87 .50ma 
Total Boardings... 8 
Figure B.35 Violation Summary by Hull Material Type. 
US Coast Guard paoue Monterey 
Vessel Intelligence Information 
Date: 08/15/1987 
Page: 1 
DATE OF INTEL VESSEL NAME EPIC CODE” SiIGEENY: 
03/01/1983 miss alfa n 


1 
suspected of smuggling illegal firearms 


DATE OF INTEL _ VESSEL NAME EPIC CODE SiTOBBN 7 
05/05/1285 miss alfa ia 
vessel seen in Cartegena, Columbia taking on a load of marijuana 


Figure B.36 Query Vessel Intelligence History. 
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US Coast Guard Group Monterey 
Boarding Violation Statistical Summar 
For Period 01/01/1980 - 01/01/1988 


Total Boardings - 8 
Date - 08/15/1987 Fage j= 1 
Violation Occurrences Total Bosedings 
MTG. 2... ew ee 5cceeeemetene 7 Bi o0l 
PerrmendoOate......... oo ule oats > 62.50 % 
Personal Flotation Device... 6 TS. O00). 
Sound Producing Device...... 5 62-5004 
Bd, ee ee 6 75.00 % 
Peeeemeestainguisher........... i. 12.50 % 
Pema GONCLOL.... 2.2000 00K ens 2 254004 
PEO UOT. 2. ec es cee sce eee 2 250014 
Navigation Anchor Lights.... 5 B72 50e. 
Negligent Operations........ 1 12.50 % 
Failure To Terminate........ 2 25.00 % 
Pollution Placard Not Posted Z 25.0084 
Marine Sanitation Devices... 3 37 . 50m 
Visual Distress Signals..... 3 37.5004 
Document Official Numbers... 7 87.50 % 


Figure B.37 Boarding Violation Summary. 
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US Coast Guard Group Monterey 
Denigar spiel ie for Violation —-- s4 


For the | Period: Bee = 01/01/1988 


Vessel Length Profile * 
Date: 08/15/1987 Page: 1 
Percentage Percentage 
Vessel Length eho Lest Toa 

ee ccurrences Towae ron oardings 

(feet) 0 Violat 54 Boarding 
hess than 20 <. we. 2%. 0 0.00 % 0.00 % 
20) = .29° Fas cs bere, as i. 14.29 % 12° S@m4 
BO 5 ia sialic eee Z 14.29 % 12.50% 
20 = 499... i 14.29 % 12.50 ¢ 
50 °= 59 2...» see 0 0.00°% 0.00 % 
S00= 69 .... + eee 1 14.29 % 12 SU 
(0e=679........ 9. 0 0.00 % 0.00 % 
80 = G9. cs «0s eae oe 2 Fige\ (39) a3 25700 
90 = SOR cies ais scqusemene a eters i 14.29 % 129508 
100 or queater .m.... 0 0.00 % 0.00 % 
Total Occurrences...... J 875s0ma4 


TOCA BOaLGU Ge. « +c. su0 0's 8 


Figure B.38 Violation Summary by Vessel Length. 
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US Coast Guard Group a 
Demographics for Violation --- 54 


Number 
For the period: NOT 7/61/1880 - 01/01/1988 
* Vessel Propulsion Type * 


J eS eS a GS a a eee eee SS SS SS Se a ae eS SSS 
> a a 2 SS a Ge ae Oe EE a a a eee iA EEE SSE ES Oe SS = OS |S 


Date: 08/15/1987 Page: 1 
Propulsion eT Tonnes oe 
ype Occurrences Violation-54 Boardings 
outboard st—~—s S (42.86% 37.50 % 
inboard gas 1 14.29 % 125 0ico 
inboard diesel 3 42.86 % 37. 50m% 
inbrd/outbrd 0 0.00 % 0.00 % 
jet propelled 0 0.00 % 0.00 % 
sail only 0 0.00 % 0.00 % 
manual 0 . 0.00 % 0.00 % 
other 0 0.00 % O00. 
unknown 0 0.00 % 0.00 % 
Total Occurrences. eee 87.50 % 
Total Boardings... 8 


Figure B.39 Violation Summary by Vessel Propulsion Type. 
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Vessel 
Name / HIN 


miss charlie 


miss charlie 
333855555533 


miss cocaine 
TRIAL Ta 


delta 
444444444444 


miss foxtrot 
666666666666 


miss foxtrot 
666666666666 


miss kilo 
999999999999 


US Coast Guard Group Monterey 
Vessel Operators Summary Listing 


Vessel 
Operator 


flinstone 


re f 
DOB - 03/15/1945 


simmons 

richard ale 
DOB - 12/20/1960 

cranston 


aS S. 
OB - 09/23/1923 


DOB - 01/01/1901 

simpson 

greg oe 
OB - 04/06/1957 

simmons 


richard au 
DOB - 12/20/1960 


flintstone 


red tte 
DOB - 03/15/1945 


Date: 08/1 3/0 


Page: 


Operator 
Address / Telno 


123 boulder dr 
bedroc 
CA 91912 


800 Casanova Ave 
Montere 
CA 93940 


654 bimptom way 
las vegas 
NV 07896 


1234 caster way 
salinas 
CA #93657 


123 heroin way 
drug oy 
CA 12345 


6789 bumpton ave 
montere 
CA 93940 


654 bimptom way 
las vegas 
NV 07896 


345 anchor way 
san francisco 
CA 91067 


800 Casanova Ave 
Montere 
CA 93940 


bedrock 
CA 91912 


Figure B.40 Vessel Operators Summary Listing. 
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345-334-3333 


408-345-6789 


204-980-7890 


408-123=2ere 


123-456-7228 


gaa @ @ @& =Hse_ee@e@e@eeeeee@ee@e@e@ee@e@eee@ee@ae eee eee ee eee eee eee ee @ eee eg e2eg ea a2 @ @ @ = 


408-234-9678 


204-980-7890 


415-234-5647 


408-345-6789 


123 boulder dr 
345-334-3333 


Vessel 
Name / HIN 


US Coast Guard Group Monterey 
Vessel Owners Summary Listing 


cranston 
Hanes 
OB - 


public 
john 
DOB - 


edwards 
gecn ge 
DOB - 


simmons 
richard 
DOB - 


Date: 08/15/1987 
Page: 1 
Owner 
Address / Telno 

800 Casanova Ave 

Montere 

CA 93940 408-345- ene? 

12 small way 

watsonville 

CA 93945 408-576-9078 

1234 caster way 

salinas 

CA 93687 408-123-9678 

123 heroin way 

aru Cisc 

CA 1234 P2o—406= O00 

34 wedewood Renn 

pacaiic gpove 

CA 476 408-567-3456 

654 bimptom way 

las vegas 

NV 07896 204-980-7890 

12 small way 

watsonville 

CA 93945 408-576-9078 © 


williams 
scott 
DOB - 


11/11/1982 


345 anchor way 
san francisco 


CA 91067 


415-234-5647 


flintstone 


red 
DOB - 


ie 
03/15/1945 


123 boulder dr 
- bedrock 


CA 91912 


Ba 354-5555 


richard 
DOB - 


Figure B.4] 


06/07/1923 
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12 pebble st 
pebble beach 
CA 94956 


Vessel Owners Summary Listing. 


408-243-9870 


Coast Guard Group Monterey 


Vessel Query Information 


NAME 
HIN 


NO 
OFF. NO 


MAKE 
MODEL 
YEAR 
TONS 

LEN (ft 


miss alfa 
La a): 1 
11111111 


criscraft 
supra 
1981 
2 
65 


LEN (in) - 3 
HORSEPOWER - 120 


HOMEPORT 
CALL SIGN 
VALUE 
CME DECAL 
YEAR 


catalina, ca 
34£56 

$75,000.00 
n 


UNUSUAL MARKINGS - 


USE - pleasure 

TYPE - open m/b 

PROPULSION - inboard gas 
HULL MATERIAL - steel 
ENGINE COMPARTMENT - closed 
FUEL COMPARTMENT - open 
CONSTRUCTION - closed 


SUPERSTRUCTURE DESC - 
MASTS - 


COLORS : 
HULL - red 
TRIM ~- wht 
CABIN - blu 
DECK - brn 
SAIL - unk 
SAIL NUMBER - 


Figure B.42 Query Vessel Information Listing. 
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US Coast Guard iolat: Montere 
Demographics for Violation --- 


Number ng 
For the period: 01/01/1 S00 = 01/01/1988 
* Vessel Type Profile * 


Date: 08/15/1987 


Percentage 
Ota 
Vessel Type Occurrences Violation-54 

open m/b 3 42.86 % 
closed m/b Z 28.57 & 
sail 2 WAS i), ee 
rowboat 0 0.008 
canoe/kayak 0 000m 
houseboat 0 0700s 
inflatable 0 0.00 % 
other 0 O200ns 
unknown 0 000 % 
Metal Occurrences.... iy 
eed BOardings...... 8 


Figure B.43 Violation Summary by Vessel Type. 
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Page: 1 


Percentage 
Hota 
Boardings 


oOo Oo 90 9Oo OO O 
© 
© 


US Coast Guard Group Monterey 
Demographics for Violation --- 54 


N 
For the Period: OL tae — 01/01/1988 
zkkKK Vessel Use Profile * 


—— Sy a ee ey eS ey ey ey ey ee ns ty ee ee Ge iy ey Ge Ge ee ee ey ee ca 
= SS ees ey ey ee Sy cg cy ec ey ee cy iy ey cy ey ee es ee 


Date: 08/15/1987 Page: i 

. Percertage Percéntdage 

_ Total Tota 

Vessel Use Occurrences Violation-54 Boardings 
commercial 5 42.86 % 37 5Om= 
pleasure 4 57.14 % 50.0082 
passenger 0 0.00 % 0.00 % 
unknown 0 07 00m 0.00 % 


TOtalwOccumeences- 7 
Total Boardings... 8 


Figure B.44 Violation Summary by Vessel Use. 
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US Coast Guard Group Monterey 


Demographics for Violation --- 54 


. N eta 
For the Period: 01/01/1980 - 0 
*x*X*X Vessel Year Profile 


Date: 08/15/1987 
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Figure B.45 


Violation Summary by Vessel Year. 
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TABLE 3 
FIGURE - PROGRAM CORRESPONDENCE 


FIGURE NUMBER REPORT NAME 
boarding 
bomajor 
bominor 
boqprn 
cmerpt 
daynight 
epicrpt 
epicsum 
immedsar 
intelsum 
operator 
opervsls 
Opqprih 
owners 
ownvsls 
owqgpm 
perintel 
erqprn 
pintqprn 
Sar 
sardates 
Sardays 
Sarmajor 
Ssarminor 
Sarqprn 
sarsmbt 
Sartimes 
smboatrpt 
stolesum 
unsfreq 
vconstmo 
vengmo 
vessel 
vfuelmo 
vhullmo 
vintqprn 
violfreq 
vilenftmo 
vpropmo 
vsloper 
vslowner 
vsiqprn 
vtypemo 
vusemo 
vyearmo 
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APPENDIX C 
SARELTIS PHYSICAL STRUCTURE 


The physical structure of SARELTIS 1s presented in this appendix through 


various types of database documentation. This documentation includes the following: 


Menu Hierarchy Charts (Figure C.1 through Figure C.11) 
A listing of all current Tables 

A listing of all current Report Formats 

A listing of all current Entry/Edit Forms 

Database Table Compositions 

A listing of Reports and Associated Tables 

A listing of Database Attributes sorted by Attribute Name 
A listing of Database Attributes sorted by Input Source 

A listing of Database Attributes sorted by Program Where Used 
A listing of Variables sorted by Variable Name 

A listing of Variables sorted by Program Where Used 

A listing of the Data Entry / Edit Rules 
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Reports Master Menu Hierarchy Chart. 
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Figure C.8 SAR Reports Menu Hierarchy Chart. 
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Figure C.9 Vessel Reports Menu Hierarchy Chart. 
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Figure C.10 Personnel Reports Menu Hierarchy Chart. 
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Ll 


pp 


- 


Table: 


Composition of Database Tables 


datadice 


Read Password: NO 
Modify Password: YES 


Column definitions 


+ Name Type 
Ll attname 2227 
2 relname TEXT 
3 2 EXT 
4 length TEXT 
5 attdesc TS 
6 source EXT 
Table: operator 


Read Password: NO 


Modify Password: NO 


Column definitions 


+ Name Type 
Ll oplname TEAT 
Zz opfname TEAT 
3 opm Tt Scr 
4 opaddr TEAT 
> oD pore LEAL 
6 opstate TEXT 
7 of ee TEXT 
S optelno TEAT 
9 opdob DATE 
QO opcourse TEXT 
1 @pi INTEGER 
Table: opvsl 


Read Password: NO 


Modify Password: NO 


Column defo 


+ Name 


1 vhinoper TET 


2 idoper 


Table: 


INTEGER 


Owners 


Read Password: NO 


Modify Password: NO 


Column definitions 


Name 
ownlname 
ownfname 
ownml 
ownaddr 
ONE EY 
ownstate 
ownzl 
ownteino 
owndob 
ownid 


OW ONIOUTB ONEE 


Length 
8 


o 
2 


Cc 
M4ho HAN G®&D 
MH WONOUHUOS 


= 


8 
7 
3 
O 
S 


characters 
characters 
characters 
characters 
characters 
characters 


iets 


characters 
eoamac Cers 
characters 
characters 
characters 
characters 
characters 
characters 
value(s) 

characters 
value(s) 


Length 
ley, 


i 


eet ace 
value(s) 


itera 
characters 
characters 
characters 
characters 
characters 
characters 
characters 
characters 
value S} 
value(s 
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Key 


yes 


Key 
yes 
yes 


yes 


yes 


Key 


yes 


Key 
yes 
yes 


yes 
yes 


ppp ppp 


DN NREFE, 


Table: owvsl 
Read Password: NO 
Modify Password: NO 


Column definitions 

# Name Type Length 

im veanown THAT 12 characters 
2 idowner INTEGER 1 value(s) 


Table: perintel 
Read Password: N 
Modify Password: NO 


Seorumn definitions 





+ Name eS Length 

l1 intlname TEXT ZO characters 
eB 2ntdob DATE 1 value(s) 

S pimtreml TEXT /Q characters 
4 pintrem2 TEXT 10 (ekiaaacters 
Ss eahtrem3 TEXT j/ OiGirteae Cers 
6 pintdate DATE 1 value(s) 

7 intfname TEXT LSemakaciee hs 
Seetrcmi TEXT 1 characters 
Table: sar , 

Read Password: NO 

Modify Password: NO 

Column definitions 

# Name Type Length 
meirolderno THAT 7 characters 
y wen TEXT 8 characters 
Ss mucn TEXT 8 characters 
4 sardate DATE 1 value(s) 

5 sarday DEAL 3 characters 
6 sartime TIME Vice (as 

7 ssunrise TIME 1 value(s 

8 ssunset TIME 1 value(s 

9 sarnod TEXT 25 characters 
O sarpob INTEGER 1 value(s) 

1 sarvhin TEXT 12 characters 
2 sarlat REAL 1 value(s 

3 sarlong REAL 1 value(s 

4 offshore INTEGER 1 value(s 

> immedsar TEXT 1 characters 
6 winddir INTEGER 1 value(s) 
Column definitions 

# Name Tere Length 

7 windspd INIEGER 1 value(s 

8 visdist INTEGER 1 value(s 

» clouds INTEGER 1 Vieeee (ss 

O ceiling INTEGER 1 value(s 

1 seas INTEGER 1 value(s 

2 swells INTEGER 1 value(s 
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Key 
yes 
yes 


Key 
yes 
yes 


Key 
yes 
yes 


yes 


yes 


Key 


Table: vslintel 
Read Password: NO 
Modify Password: NO 


Column definitions 








+ Name Llype Renegicn 

1 intvname TEXT 1/7 characters 
2 intdate DATE 1 value(s) 

3 See cote TEXT 1 characters 
4 stolen Tex. 1 characters 
5 vremarkl TEXT 70 characters 
6 vremark2 TEXT 70 characters 
7 vremark3 TEXT 70 characters 
Table: vessel 

Read Password: NO 

Modify Password: NO 

Column definieELlons 

+ Name eS Length 

1 vsilno TeAT 8 characters 
Z2vsiname TEXT 17 characters 
3 vslhin Peo 12 characters 
4vslmake TEXT 10 characters 
5 vslmodel TEXT 10 characters 
6 vslyear TEXT 4 characters 
7 vsltons INTEGER 1 value(s 

S vsltlientt iG@ECER 1 value(s 

9 vsllenin INTEGER 1 value(s 

10 vsilhp TEAT 3 characters 
ll vsluse LEAT 2 characters 
12 vsltype TEXT 2 characters 
les Vier eee Tea. 1 characters 
14 vslhul TET 1 characters 
15 vsleng LEAT 1 characters 
16 vslfuel TEXT 1 characters 
Column definitions 

+ Name Type Length 

17 vsilconst TEXT 1 characters 
18 cmedecal TEXT 1 characters 
19 cmeyear TEXT 4 characters 
20 vselofine saak.r 10 characters 
Zl homeport TEXT 25 characters 
22 vsleall “Sev 12 characters 
23 vslvalue DOLLAR 1 value(s) 
24 vslsuper TEXT 12 characters 
25 vslmasts TEXT 1 characters. 
26 sailno Te 8 characters 
Z2/ nlcolor ia 3 characters 
28 trcoior Ea 3 characters 
29 slcoler TexT 3 characters 
30 ebeolor jHexT 3 characters 
31 dkeolor “Hee T 3 characters 
32 vsimarks TEXT 40 characters. 
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Key 
yes 


Key 


yes 
yes 


Key 


Table: 


boarding 


Read Password: NO 


Modify Password: NO 


Column definitions 


+ Name ee Length Key 
1 bodate DATE i 7Value S 
2 botime TIME 1 value(s 
3 bono ee 7 characters yes 
4 eee INTEGER 1 value(s 
5 adultpfd INTEGER 1 value(s 
emecniiid INTEGER 1 value(s 
7 owsta EXT 1 characters 
8 Beeb odie. TEXT 15 characters 
9 obscount TEXT 15 characters 
ime ODscit TEXT 13 characters 
ll obsstate TEXT Zeecharacters 
12 obslat REAL il, vaaeenl 
i opsliong REAL 1 value(s 
14 viol5S4 EXT 1 characters 
im V1i0lSS one 1 characters 
omy 1OolS6 eer 1 characters 
Column definitions 
+ Name a Length Key 
ime vlols7 aL characters 
fee ViLO15SS Leek 1 characters 
ta Viols9 TEXT 1 characters 
Ze Yrol6O LEAL I characters 
ee yeolel Tia 1 characters 
Ze V1L0162 TEXT 1 characters 
MaeeyLOl63 TEXT PecCaaGaccers 
24 viol64 Tan 1 characters 
Zoe tols65 TEXT 1 characters 
ZewviLolé66 Bol 1 characters 
yee 1016/ EAs 1 characters 
28 viol68 Tae, ae 1 characters 
29 uns69 he 1 characters 
30 uns70O Teak 1 characters 
3 uns71 PeXT 1 characters 
ez uUns/2 TEXT 1 characters 
Column definitions 
+ Name Type Length Key 
So uns/3 TEXT characters 
34 uns74 DEAT i characters 
Se uns /5 TeAT 1 characters 
36 uns76 REAT 1 characters 
Se uns// Wee 1 characters 
38 uns78 TE Ar 1 characters 
39 uns793 TeALT 1 characters 
40 boreml TeX T 70 characters 
41 borem2 TEXT 70 characters 
42 borem3 oA 70 characters 
43 boname Tox 25 characters 
44 borate LEved > Characters 
45 bounit DEEL 22> characters 
46 bodist Bex T 2 characters 
29 boopfac TEXT 5 characters 
48 boday TEAT 3 characters 
Column definitions 
+ Name vee Length Key 
49 bsunrise TIME 1 value(s 
20 bsunset TIME 1 value(s 
a bovhin Lee 12 characters yes 
52 weapons INTEGER 1 value(s) 
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Table: forms 
Read Password: NO 
Modify Password: YES 


Column definitions 


Name e Length 
1 fname TEXT 8 characters 
2 fdata tae T 80 characters 
Table: reports 


Read Password: NO 
Modify Password: YES 


Column definitions 


Name Ge Length 
1 rname TEAL 8 characters 
2 rdata Troe 132 characters 


Table: states 
Read Password: NO 
Modify Password: YES 


Column definitions 


+ Name as Length 
1 abbrev TEXT 2 characters 


Table: colors 
Read Password: NO 
Modify Password: YES 


Column definitions 

# Name ae Length 

iL shade TEXT 3 characters 
2 clrdesc TEXT 20 characters 


Table: days 
Read Password: NO 
Modify Password: YES 


Column definitions 


+ Name Type Length 

1 dayabbr TEXT 3 characters 
Table: constr 

Read Password: NO 

Modify Password: YES 

Column definitions 

# Name ioe Length 

1 constype TEXT 1 characters 


2 consdesc TEXT 10 characters 


Table: engcomp 
Read Password: NO 
Modify Password: YES 


Column Getini caons 

+ Name Ae Length 

l ecomptyp TEXT 1 characters 
2 ecompdes TEXT 10 characters 
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yes 


Key 
yes 


Key 
yes 


Key 
yes 


Key 


Table: fuelcomp 
Read Password: NO 
‘Modify Password: YES 


Column Sei aos 

Name see Length 
fm £comptyp THAT 1 characters 
Z fcompdes TEXT 10 characters 


Table: hullmat 
Read Password: NO 
Modify Password: YES 


Column ee aan 

+ Name pane Length 

1 hmattype TEAT 1 a eee e 
2 hmatdesc TEXT 15 characters 


Table: boattype 
Read Password: NO 
Modify Password: YES 


Column definitions 

+ Name ies Length 

1 vtype TREAT 2 characters 
Z2 vtypedes TEXT 15 characters 


Table: boatuse 
Read Password: NO 
Modify Password: YES 


Column definitions 

+ Name e Length 

1 vuse THe 2 characters 
2 vusedesc THE 15 characters 


Table: boatprop 
Read Password: NO 
Modify Password: YES 


Column definitions . 

#+ Name nets Length 

1 proptype TEXT 1 characters 
Z propdesc TEXT 15 characters 


Table: status 
Read Password: NO 
Modify Password: YES 


Column definitions 

+ Name ve Length 
PeOsteactyp TEAT 1 characters 
2 ostatdes TEXT 30 characters 
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Key 
yes 


yes 


Key 
yes 


Key 
yes 


Key 
yes 


Key 


Table: 


courses 


Read Password: 


N 
Modify Password: YES 


Column definitions 


" 
2 


Table: 


Name 
coursetp Tea 
coursede TEXT 


majarea 


Read Password: 


N 
Modify Password: YES 


Column definitions 


+ Name 

i Maggrid Wa 
2 majnorth REAL 
3 majsouth REAL 
4 majeast REAL 
5 majwest REAL 
Table: nations 


ReaG) — asswore: 
Modify Password 


Column definitions 


BE 
se 


Table: 
Read Password: NO 
Modify Password: YES 


Column definsecions 


Ul. GNH se 


Table: 
Read Password: NO 
Modify Password: YES 


Column definitions 


U1. ODM aE 


Name 1 mee 
symbo 
registry TEXT 


mMminarea 


Name | ae 
manorid Ret 
minnorth REAL 
minsouth REAL 
mineast REAL 
minwest REAL 


epic 


Name ae 
epicno TEXT 
epicdseis TE 
epicdscz Tacr 
epicdscs TEAT 
epicdsc4 TEXT 


Length 


1 


Key 


characters yes 


15 characters 


Length Key 
a characters yes 
1 value(s 
1 value(s 
1 value(s 
1 value(s 


Length 
characters yes 


Z 


30 characters 


Len 


NO 


sb 
1 
ut 
a 


Length 
characters yes 
characters 
characters 
characters 
characters 


gth Key 
characters yes 
value(s 
value(s 
value(s 
value(s 


Key 
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Table: 
Read Password: NO 
Modify Password: YES 


Column definitions 


rules 


# Name wpe Length 

1 numrule INTEGER 1 value(s) 

2 and/or XT 4 characters 
Secolnamel TEXT 8 characters 
4 tablel pL 8 characters 
Eepoolean TEAT 4 characters 
6 colname2 TEXT 8 characters 
7 table2 EXT 8 characters 
8 rulvalue TEXT 40 characters 
Table: district 


Read Password: NO 
Modify Password: YES 


Column definitions 


+ Name ee Length 

1 distno Dee 2 characters 
2 distdesc TEXT 35 characters 
Table: sarunits 

Read Password: NO 

Modify Password: NO 

Column definitions 

+ Name ia. ; Length 
ieeOLanO Tea 7 characters 
2 unitname TEXT 25 characters 
3 uwtime TIME 1 value(s 

4 uwdate DATE 1 value(s 

5 oseta TIME 1 value(s 

6 etadate DATE ee aera (as 

7 ostime TIME 1.value(s 

8 osdate DATE Pe gceetle ts 

9 alngtime TIME 1 value(s 
10 alngdate DATE 1 value(s 
im cOwcime TIME 1 value(s 
12 towdate DATE 1 value(s 
13 dvmoored TIME 1 value(s 
14 dvmdate DATE 1 value(s 
mS sucmoor TIME ‘ 1 value(s 
16 sutdate DATE 1 value(s 
Table: viols 

Read Password: NO 

Modify Password: YES 

Column definitions 

+ Name ae Length 

i” Vi.01ln0 Tie L Z2 characters 
2 violdesc TEXT 40 characters 
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Key 


Key 


Key 
yes 


Key 


Table: opown 
Read Password: NO 
Modify Password: NO 


Column definitions 


+ Name tae Length Key 
1 ownno INTEGER a: veiwe S| 
2 opno INTEGER 1 value(s 


Table: vardict 
Read Password: NO 
Modify Password: YES 


Column definitions 


+ Name Type Length Key 
1 varname TEXT 8 characters yes 
2 vartype TEXT 8 characters 
3 varuse LEAT 1Z characters yes 
4vardesc TEXT 25 characters 
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Report Format and Associated Table 


ASSOCIATED TABLE 


REPORT NAME 


NF Wo tr maN 
oy =A An OLY > Pt PP Bay es 
sin @ Zo a =e A eee ff nN YVttecter Lon <A 
SER Ca cane ora Or ara Za rere Ma Aer e Cae en 


DBBLA HS VOSS EDS l CS See SHOE = HORM OD ae IEEE See 
OOCOnI MHRA RAG Gini WOO mnME D5 5Rn5bommbeF WS 5m 
Bee ALAR bn COOLHOOLS EA OAHLLOLL Lab > ans nae HEROOHaaE 


© pet Me, yy meced A. O ey 

Feel OL, LAO] R74 DndOzERMZO-SQ COGQSO EO © 

LOO 7 RO FACED OCR ROSTER GUES SRS? 7505 

ACR MAL AWE OP ACAD AAS SOG RO nLOZ OREM 7 OSooau< 

SAPO CRONE GS ehh 7 nd pandadadeleec ODO 7927 Chie ar Oe 
a : at : > 4 a NY) 

Ara AMUIO AMINA A OOCOOOL. LAA AAASAAAA ID SP >>> > DDD DS SD DD 
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AttName 


abbrev 
adultpfd 
alngdate 


alngtime 


and/or 
attdesc 
attname 
bodate 


boday 
Bodusn 


boname 


bono 


boolean 
boopfac 
borate 
boreml 
borem2 
borem3 
botime 


bounit 


bovhin 


bsunrise 


bsunset 


Database Attributes Sorted by Attribute Name 


RelName 


states 
boarding 
bosum 
sartime3 
sartime4 
sarunits 
sartime3 
sartime4 
Sa€runits 
rules 
datadict 
datadict 
boarding 
bohis 
bosum 
violsum 
boarding 
bosum 
boarding 
bosum | 
boarding 
bohis 
bosum. 
boarding 
bohis 
bosum 
bovslsum 
frqchart 
violsun. 
vsilmo 
Gupes 


. boarding 


bosum 
boarding 
bohis 
bosum 
boarding 
bohis 
bosum | 
boarding 
bohis 
bosum_ 
boarding 
bohis 
bosum 
boarding 
bohis 
bosum 
bosum. 
boarding 
bosum | 
boarding 
bohis 
bosum 
bovslisum 
violsum 
boarding 
bosum. 
boarding 
bosum 


Type 


text 


integer 


date 


time 


text 
text 
text 
date 


text 
text 
text 


text 


Cext 


text 


text 


text 


eset 


text 


time 


text 
Cext 


time 


time 


Zs 


ni 


70 


70 


70 


Zs 
2 


Attribute Description 


state abbreviation 
number of adult pfd's on board 
date alongside distressed vessel 


alongside time of sar unit 


and/or con {une tee editting rules 
attribute désemiguion 

data dictionary attribute name 

date of boarding 


boarding day of week 
boarding offcier district 


boarding officer name 


boarding report number 


boolean conjunction used in edit rule 
boarding unit operating facility code 
boarding officer rank/rate 

boarding officer remarks 

boarding officer remarks 

boarding officer remarks 

time of boarding 


boarding officer unit 


vessel hull identification number 


time of sunrise 


time of sunset 
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AttName 


ebcolor 


ceiling 
childpfd 
clouds 


clrdesc 
cmedecal 


cmeyear 


colnamel 
colnameZ2 
consdesc 
constdes 
constype 
counter 
coursede 
Seoursectp 
dayabbr 
descprop 
ametdesc 
distno 
ecolor’ 


dvmdate 
dvmoored 


ecnumber 
ecompdes 
peor “YP 
ecpc 
engdesc 


RelName 
opvsls2 
ownvsls2 
pvsljoin 
vessel 
vslsum 


vslsuml . 


vslsum2 
wvsljoin 
sar 
sarsum 
boarding 
bosum 
sar 
sarsum 
ecolcors 
bovslsum 
opvsls2 
ownvsls2 
my si70in 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
bovsilsum 
opvsls2 


Type 


integer 
integer 
integer 


text 
text 1 


text 4 


ownvsls2 - 


pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
rules 
rules 
constr 
summary3 
constr 
summaryl 
courses 
courses 
days 
summary6 
arsenic t 
distriet 
opvsls2 
ownvsls2 
pyvsljoin 
vessel . 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
sartimes5 
sarunlts 
Selene 5 
sarunits 
epictmp 
engcomp 
engcomp 
epictmp 
summary4 


text 
text 
text. 
text 
Cex 
integer 
text 
text 
text 
text 
text 
text 
text 


un OO 


WP WeHWeHHY h-rREe OO 
mun 


date 
time 


integer 
text 10 
text ph 
real 
text 10 


Attribute Description 


vessel cabin color 


on scene ceiling in feet 
number of child pfd's on board 
on scene cloud coverage in tenths 


color abbreviation description 
y or n for cme decal displayed 


year of cme decal displayed 


column 
column 
vessel 


name used in editting rule 
used in oe rule 
construction code description 
vessel construction code description ° 
vessel construction code 

Veoset ugoe Coulter 

course description 

Course type code 

day abbreviation ae 

vessel Meee oneece desentotron 

district number description 

district number code 

vessel deck color 


date distressed vessel moored 
time distressed vessel moored 


Count CmuietalWépic codés oa 
vessel engine compartment description 
vessel parece. Couper tient code 

tiaivi dual wepic code perclntage 
vessel engine compartment description 
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AttName 


epiccode 


epicdscl 
epicdsc2 
epicdsc3 
epicdsc4 
epicno 


etadate 
pacuRces 
compt 
een = 
fname 
folderno 


foldno 


freqent 


fueldesc 
Grace & 


lallee ong 


hmatdesc 
hmattype 
homeport 


hulldesc 
idoper 


RelName 


Type 


epicsum 
ebtermp 1 
vslint 
Visretn ce: 
epic 
epictmp 
epictmp2 
Ea1c 
epictmp 
epictmp2 
epic 
epictmp 
epictmp2 
Esc 

eD1 Een 
epictmp2 
epic 
epictmp 
Regs 
sarunits 
fuelcomp 
fuelcomp 
forms 
forms 
sar 
sarhis 
sarsum 
sarsuml 
sartimel 
sartimez2 
sartime3 
sartime4 
sartimes 
sarunits 
positfrgq 
positfr 
summary 
positirg 
positfrg 
opvsls2 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
hullmat 
hullmat 
opvsls2 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
summary6 
opvsl 
opvslsl 
opvsls2 
pvsljoin 
vslsopr 


text 


date 
text 
text 
text 
text 
text 


text 


integer 


text 
real 


text 


text 
text 
text 


text 


integer 


70 


70 


70 


10 


15 
Zo 


Es 


Attribute Description 


epic code 


description of epic code 


epic code description 


epic code description 


epic code description 


epic code number 


date of estimated arrival 
vessel fuel compartment description 
vessel fuel compartment code 

forms data 

form name 

sar folder number 


sar folder number 


major grid counter 


vessel fuel compartment description 
major grid percentage 


vessel hull color 


vessel hull material description 
vessel hull material code 
vessel homeport 


vessel hull mater ialeese: (omar 
operator identification n er (system) 
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AttName 


idowner 


immedsar 


intdate 


intdob 
intfname 
intiname 
intmi 


intvdate 
intvname 


length 
majeast 


majgrid 
majnorth 
majsouth 
majwest 
mineast 
mingrid 
minnorth 
minsouth 
minwest 
mucn 
numconst 
numeng 
numfuel 
numhull 
numprop 


numrule 
numuse 


RelName 


ownvsisl 
ownvsls2 
owvsl 
vslsown 
wvsljoin 
sar 
sarhis 
sarsum 
sarsum 
epicsum 
ae cue 
stolesum 
vslint 
vstante 1 
perint 
perintel 
persum 
Berrnt 
perintel 
persum 
Bernt 
perintel 
persum 
Be Gine 
perintel 
persum 
inteisum 
epicsum 
intelsum 
stolesum 
vslint 
odeice 1 
datadict 
majarea 
positfrgq 
majarea 
positfrq 
majarea 
positirgq 
majarea 
positfrq 
majarea 
positirg 
minarea 
positirg 
minarea 
positfrgq 
minarea 
positirg 
minarea 
positfrgq 
minarea 
Bosterrd 
sar 
sarhis 
sarsum 
summary3 
summary4 
summary5 
summary6 
summary7 
rules 
summary2 


Tvpe 
integer 


text 


date 


date 
text 
ext 
Eext 


date 
text 


text 
real 


Cext 
real 
real 
real 
real 
text 
real 
real 
real 
text 
integer 
Integer 
integer 
integer 
integer 


Inireger 
Lnige cet 


a 


Fo 


20 


ey 


Actrabuvee Deseraption 


owner identification number (system) 


y or n vessel in immediate danger 


date intelligence received/entered 


date of birth of person 
first name of person 
last name of person 
middle initial of person 


date intelligence received/entered 
vessel name 


data dictionary attribute length 
eastern bound of major grid 


designation of major grid area 
northern bound of major grid 
southern bound of major grid 
western bound of major area 
eastern bound of minor grid 
designation of minor grid area 
northern bound of minor grid 
southern bound of minor grid 
western bound of minor grid 
multi-unit case number 
construction counter 
engine compartment counter 
fuel compartment counter 
hull material counter 
propulsion counter 


of input editting rule 
use counter 


vessel 
vessel 
vessel 
vessel 
vessel 
number 
vessel 


5 


AttName 


obsbody 
obscity 
obscount 


obslat 
obslong 


obsstate 


offshore 


opaddr 


opcity 


opcourse 


opdob 


opfname 


opid 


oplname 


opmi 


opno 


Re lName 


Type 


boarding 
bosum 
boarding 
bosum 
boarding 
bosum. 
boarding 
bohis 
bosum_ 
boarding 
bohis 
bosum. 
boarding 
bosum 
sar 
sarhis 
sarsum 
operator 
opervsls 
opsuml 
opsumz 
opvslsl 
opvsls2 
Operator 
opervsls 
opsuml 
opsumz 
opvslsl 
opvsls2 
operator 
opsuml 
opsumz 
opvslsl 
opvsls2 
Operator 
opervsls 
opsuml 
opsumz 
Opvsisl 
opvsls2 
operator 
opervsls 
opsuml 
opsumz 
opvslsl 
opvsls2 
Operator 
opsuml 
opsumz 
opvslsl 
opvsls2 
Gperaterz 
opervsis 
opsuml 
opsumz 
opvslsl 
opvsls2 
Ober sror 
opervsls 
opsuml 
opsumz 
opvslsl 
opvsls2 
opown 


text 


integer 


text 


text 


text 


date 


text 


integer 


text 


text 


integer 


Ze 


18 


tS 


20 


il 


Attribute Description 


body of water that boarding occurred 
city that boarding occurred 
county that boarding occurred 


latitude where boarding occurred 
longitude where boarding occurred 


coded state abbrev that boarding occurs 


distance in nm offshore 


operator street address 


operator city address 


coded operator courses 


operator date of birth 


operator first name 


operator identification number (system) 


operator last name 


middle initial 


Operator 


operator identification number (system) 
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AttName 


opstate 


optelno 


opzip 


osdate 


oseta 
ostatdes 
ostattyp 
ostime 


ownaddr 


owncity 


owndob 


ownfname 


ownid 


ownlname 


RelName 
operator 
opervsls 
opsuml 
opsumzZ 
opvslsl 
opvsls2 
Gperator 
opervsls 
opsuml 
opsum2 
opvsisl 
opvsls2 
operator 
opervsls 
opsuml 
opsum2 
opvsisl 
opvsls2 
sartimel 
sartime4 
sarunits 
sarunlts 
status 
status 
sartaime 1 
Sartime4 
sarunits 
owners 
ownsuml 
ownsum2 
ownvsls 
ownvslsl 
ownvsls2 
owners 
ownsuml 
ownsum2 
ownvsls 
ownvslsl 
ownvsls2 
owners 
ownsuml 
ownsum2 
ownvsls 
ownvslsl 
ownvsls2 
owners 
ownsum1 
ownsum2 
ownvsls 
ownvslsl 
ownvsls2 
owners 
ownsuml 
ownsumZ2 
ownvslsl 
ownvsls2 
owners 
ownsuml 
ownsumZ 
ownvsls 
ownvslsl 
ownvsls2 


type Len 
text 2 
text 12 
text 9 
date 

time 

text 30 
EGXE iF 
time 
text 25 
text co 
date 

text eS 
integer 
text 20 


Attribute Description 


coded operator state abbrev. 


operator telephone number 


operator zip code address 


date on-scene 


on scene eta of sar unit 


owner 
owner 


status description 
status code 


on scene time of sar unit 


owner 


owner 


owner 


owner 


owner 


owner 


oy 


street address 


city address 


date of birth 


first name 


identification number (system) 


last name 


AttName 


ownno 
ownstate 


owntelno 


ownzip 


owstatus 
peter 

pintdate 
pintrem1l 
pintrem2 


pintrem3 


propdesc 
DEGpeyoe 
rdata 
registry 
reiname 
cname 
rulvalue 
sailno 


sardate 


sarday 


sarlat 


RelName 


ownvslsl 
ownvsls2 
opown 
owners 
ownsuml 
ownsum2Z 
ownvsls 
ownvslsl 
ownvsls2 
owners 
ownsuml 
ownsum2 
ownvsls 
ownvslsl 
ownvsls2 
owners 
ownsuml 
ownsumz 
ownvsls 
ownvslsl 
ownvsls2 
boarding 


pépint 
perintel 
persum 
De mae 
perintel 
persum 
Permit: 
perintel 
persum 
Pepine 
perintel 
ersum 
oatprop 
boatprop 
reports 
nations 
datadict 
reports 
rules 
opvsls2 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
Sar | 
sarhis 
sarsum 
sarsuml 
sar 
sarsum 
sarsuml 
Sane) 
sarhis 
sarsum 


integer 


text 


text 


Cext 


text 
real 
date 
text 


text 


text 


text 
text 
text 
text 
text 
text 
text 
text 


date 


text 


real 


FZ 


70 


~J ~J 
OW wm © O 


OO OWE 
© 


Attribute Description 


owner middle initial 


owner identification number (system) 
coded owner state abbreviation address 


owner telephone number 


owner Z1p code address 


coded owner status at time of boarding 


percentage increase in sar cases 
date intelligence received/entered 
intelligence remarks on person 
intelligence remarks on person 


intelligence remarks on person 


vessel propulsion description 
vessel propulsion code 

HepORt dat la 

Nablon descr ipelon 

data dictionary relation name 
report name 

edit error message 

sall number of vessel 


date of sar 


sar day of week abbreviated 


latitude position of sar 
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AttName 


sarlong 
sarnod 


sarnum 
sarpob 


sartime 
sarvhin 
saryear 


seas 


shade 
slcolor 


source 
ssunrise 


ssunset 


stolen 


sutdate 
sutmoor 
swells 
symbol 
tablel 
table2 
tmp 
towdate 
towtime 


Eecolor 


type 
typedesc 
ucn 


RelName 


sarsum 
sarstat 
sar 
sarhis 
sarsum 
sar. 
sarhis 
sarsum 
sar | 
sarhis 
sarsum 
sarstat 
sar 
sarsum 
colors 
opvsls2 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
datadict 
sar 
sarsum 
sar 
sarsum 
cpaceun 
stolesum 
vslint 
vslintel 
sartime2 
sarunits 
sartime2 
sarunits 
sar 
sarsum 
nations 
rules 
rules 
Some, 
sartimes5 
sarunits 
sartime5 
sarunits 
opvsls2 
ownvsls2 
pyvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
datadict 
summary 1 
Scie 
sarhis 
sarsum 


CExt 


iaeeger 
Pee ek 


time 
text 
text 


integer 


Cext 
text 


Gext 
time 


time 


text 


date 
time 
integer 
text 
Cext 
text 
Cext 
date 
time 


Cext 


Cext 
Cext 
text 


EZ, 


iS 


N09 OOM 


Attribute Description 


longitude position of sar 
sar nature of distress 


number of sar cases 
number of personnel onboard 


time sar report received 
vessel hull identification number 
year of sar case 


on scene sea height in feet 


color abbreviation 
vessel sail color 


source document 
time of sunrise 


time of sunset 


y Of n for vessel stolen 


date sar unit moored/ returned 
time sar unit moored 
on scene swell height in feet 


nation abbreviation. 

table used.in editting 
table used in editting 
attribute/relation for 
date distressed vessel 


rule 

ule > 
FEpOr eae ranting 
in tow 


time distressed vessel in tow 


vessel trim color 


data dictionary attribute type 
vessel type description 
unit case number 
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AttName 


unitname 
uns69 


uns70 


uns71 


uns72 


uns73 


uns74 


uns75 


uns76 


uns77 


uns78 


uns79 


usedesc 


uwdate 


uwtime 


Re lName 


sarunits 
boarding 
bohis 
bosum 
Enqenart 
violsum 
boarding 
bohis 
bosum 
fuqchart 
violsum 
boarding 
bohis 
bosum 
frqchart 
boarding 
bohis 
bosum 
rRgcwart 
violsum 
boarding 
bohis 
bosum 
frqchart 
violsum 
boarding 
bohis 
bosum 
frqchart 
violsum 
boarding 
bohis 
bosum 
Engenart 
violsum 
boarding 
bohis 
bosum 
Engeidenr t 
violsum 
boarding 
bohis 
bosum 
frqenar t 
violsum 
boarding 
bohis 
bosum 
frqchart 
violsum 
boarding 
bohis 
bosum 
Engemart 
violsum - 
summary2 
sartimel 
SaieameZ 
sartime3 
Sarunits 
sartimel 
sartime2 
sartime3 
sarunits 


text 


text 


text 


Cext 


text 


text 


text 


text 


text 
text 
text 


date 


time 


LS 


Attribute Description 


sar unit name 


'X' Lf vessel terminated 

'X' if condition corrected on the spot 
'X' if vessel overloaded 

'X' 1£ fuel in bilges 

'X' if fuel leak 

'X' if manifestly unsafe voyage 

'X! if hazardous bars (13th district) 
_ if operator alcohol condition 

'X' if other unsafe condition 


'X' af warning issued 
no violations 
vessel use description 


Sar unit underway date 


underway time of sar unit 
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AttName 


vardesc 
varname 
vartype 
varusel 
vhinoper 


vhinown 


vi0l54 


710155 


v1i0156 


710157 


sro 58 


vi0l59 


v1i0l160 


viol61 


v10162 


vi0l63 


RelName 


vardict 
Veaairct 
vardict 
vardict 
opvsl 
opvslsl 
opvslsz 
pvsljoin 
Veeeen* 
ownvslsl 
ownvsls2 
owvsl 
vslsown 
wvsljoin 
boarding 
bohis 
bosum 
frqchart 
violsum 
boarding 
bohis 
bosum 
frqchart 
violsum 
boarding 
Dohis 
bosum 
pacehnart 
violsum 
boarding 
bohis 
bosum 
frqchart 
violsum 
boarding 
bohis 
bosum 
frqchart 
violsum 
boarding 
bohis 
bosum 
Begemart 
violsum 
boarding 
bohis 
bosum 
frqchart 
violsum 
boarding 
bohis 
bosum 
frqchart 
violsum 
boarding 
bohis 
bosum 
frqchart 
violsum 
boarding 
bohis 
bosum 
frqchart 
violsum 


text 


text 


text 


text 


text 


text 


text 


text 


text 


text 


text 


HZ 


Attribute Description 


attribute represented or how used 
name of variable 

type of variable 

where the variable is used 


vessel 


vessel 


14] 


hull identification 

hull identification number 
numbering violation 

certificate violation 

pfd violation 

sound producing device violation 
bell violation 

fire extinguisher violation 
flame control violation 
ventilation violation 
navigation/anchor lts. violation 


negligent operation violation 


AttName 


viol64 


viol65 


viol66 


viol67 


vio0l68 


violdesc 
violno 
visdist 
vremarkl 
vremark2 


vremark3 


vslcall 


vslconst 


RelName 


Type 


boarding 
bohis 
bosum 
frqchart 
violsum 
boarding 
bohis 
bosum 
frqchart 
violsum 
boarding 
bohis - 
bosum 
ERgenart 
violsum 
boarding 
bohis 
bosum 
frqchart 
violsum 
boarding 
bohis 
bosum 
frqchart 
violsum 
viols 
viols 
sar 
sarsum 
intelsum 
vslint 
vslintel 
intelsum 
vslint 
vslintel 
intelsum 
vslint 
vslintel 
opvsls2 
ownvsls2 
pyvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsis2 
ownvslsz2 
pvsljoin 
summary3 
vessel 
violsum 
vsimo 
vslsum 
vsisuml 
vslsum2 
wvsljoin 


text 


text 


text 


text 


Cext 
Geer 
Pee Cee 
text 
text 
text 


text 


Cext 


Nb 
© 


70 


70 


£2 


Attribute Description 


'X' if failure to terminate violation 
'X' if pollution placard not posted 

'X' af marine sanitation device violtn. 
'X' if visual distress signal violation 
'X' af document/official no. violation 


violation description 
violation number 
visibility distance 


vessel intelligence remarks 


vessel intelligence remarks 
vessel intelligence remarks 


vessel call sign 


coded vessel construction type 
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AttName RelName Type Len Attribute Description 
vsleng opvsls2 text 1 coded vessel engine compartment type 
ownvsls2 
pvsljoin 
summary4 
vessel 
violsum 
vslmo 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
vslfuel opvsis2 text 1 coded vessel fuel compartment type 
ownvsls2 
pvsljoin 
summary5 
vessel 
violsum 
vslmo 
vslsum 
vslsuml 
vslsum2 
wvsljoin | | 
vslhin bovsisum text 12 vessel hull identification number 
opervsls 
opvsls2 
ownvsls 
ownvsls2 
pvsljoin 
vessel 
violsum 
vslsum 
vslsuml 
vslsum2 
wysljoin 
vslhp opvsls2 text 3 vessel horsepower 
' oOwnvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin | 
vslhull oopvsis2 text 1 coded vessel hull material 
ownvsls2 
pvsljoin 
summary6 
vecsel 
violsum 
vslmo 
vslsum 
vslsuml 
vslsum2 
wvsljoin | 
vsllenft opvsls2 integer vessel length in feet 
ownvsls2 
pvsljoin 
vessel 
violsum 
vslmo 
vslsum 
vslsunl 
vslsum2 
wysljoin 
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AttName 


vsllenin 


vslmake 


vslmarks 


vsimasts 


vsilmodel 


vsiname 


vsino 


vsloffno 


Re lName 


opvsls2 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsis2 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsis2 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wysljoin 
opvsisz 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsis2 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vsilsuml 
vslsumz 
wvsljoin 
opervsls 
opvsls2 
ownvsls 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsisz2 
ownvsls2 
pyvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wyvsljoin 
opvsis2 
ownvsls2 
pvsljoin 
vessel 
vsisum 
vslsuml 
vslsum2 


Type 
integer 


text 


text 


text 


text 


text 


text 


text 


wvsljoin | 


10 


40 


10 


ey 


10 


vessel 


vessel 


number 


vessel 


vessel 


vessel 


vessel 
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Attribute Description 


length inches 


make 


unusual markings 


of masts on vessel 


model 


name 


number 


official number (main beam no.) 


AttName 


vslprop 


vslsuper 


vsltons 


vsltype 


vsluse 


vslvalue 


Re lName 
boarding 
bohis 
bosum 
opvsls2 
ownvsls2 
pyvsljoin 
summary6 
Vecger 
violsum 
vslmo 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsls2 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wysljoin 
opvsis2 
ownvsls2 
pvsljoin 
vessel 
violsum 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsls2 
ownvsls2 
pvsljoin 
summaryl 
vessel 
violsum 
vslmo 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsis2 
ownvsls2 
pvsljoin 
summary2 
ere). 
violsum 
vslmo 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
opvsils2 
ownvsls2 
pvsljoin 
vessel 
vslsum 
vslsuml 
vslsum2 
wvsljoin 


Type Len 
integer 
text i 
text iz 
integer 
text wz 
text 2 
dollar 


Attribute Description 


number of personnel on board vessel 


coded vessel propulsion method 


vessel superstructure 


vessel net tonnage 


coded vessel type 


coded vessel use 


vessel value 
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AttName 


vslyear 


vtype 
vtypedes 
vuse 
vusedesc 
weapons 


winddir 


windspd 


RelName 


Type 


opvsls2 
ownvsls2 
pvsljoin 
vessel 
violsum 
vslmo 
vslsum 
vslsuml 
vslsum2 
wvsljoin 
boattype 
boattype 
boatuse 
boatuse 
boarding 
bohis 
bosum 
violsum 
sar 
sarsum 
sar 
sarsum 


text 
text 
text 
Cee 
integer 


integer 


integer 


Attribute Description 


vessel model year 


vessel 
vessel 
vessel 
vessel 
number 


type scOcden sas 

type description 
use code 

use description 

of weapons on board 


wind direction 


wind speed 
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Source 


Database Attributes Sorted by Input Source 


AttName 
adultpfd 
bodate 
boday 
bodist 
boname 
bono 
boopfac 
borate 
boreml 
borem2 
borem3 
botime 
bounit 
bovhin 
bsunrise 
bsunset 
childprd 
cmedecal 
cmevyear 
obsbody 
obscity 
obscount 
obslat 
oneeng 
obsstate 
opaddr 
Opea cy 
opcourse 
opdob 
opfname 
oplname 
opmi 
opstate 
optelno 
opzip 
ownaddr 
owncity 
owndob 
ownfname 
ownlname 
ownmi 
ownstate 
owntelno 
ownZl 
owstatus 
uns69 
uns70 
uns71 
uns72 
uns73 
uns74 
uns75 
uns76 
uns77 
uns78 
uns79 
vhinoper 
vhinown 
Vv10154 
VIOES5 
vV10156 
VIOrSs/ 
v1iol58 
v10159 
viol60 


Re lName 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
vessel 
vessel 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
operator 
Gperator 
Gperator 
Operator 
Goerator 
operator 
operator 
operator 
operator 
Geeratcor 
owners 
owners 
owners 
owners 
owners 
owners 
owners 
owners 
owners 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 


boarding - 


boarding 
opvsl 
owvsl. 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
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integer 
date 
text 
text 
text 
text 
text 
text 
text 
text 
Eext 
time 
text 
Text 
tame 
time 
iaeeger - 
text 
text 
text 
text 
text 
real 
real 
Cext 
text 
text 
text 
date 
text 
text 
text 
text 
text 
text 
text 
text 
date 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 


»= MUM 


NO Ou OO 
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NO 


RRR RRR RR RRR RR RRR ERRORNENER FPNWRNRPDRNE FPRNNWNRFRE BE 
Don o 


Source 


designer 


AttName 
violél 
viol62 
viol63 
viol64 
yvio0l65 
viol66 
Sale) ews 
v10l168 
vsilconst 
vsleng 
vslfuel 
vslhin 
vslhp 
vslhull 
vsilenft 
vsllenin 
vsimake 
vsimodel 
vsilname 
vsino 
vslpob 
vslprop 
vsltons 
vsltype 
vsluse 
vslyear 
weapons 
abbrev 
and/or 
attdesc 
attname 
boolean 
clrdesc 
colnamel 
colname2 
consdesc 
constype 
coursede 
comMmsetp 
dayabbr 
distdesc 
distno 
ecompdes 
ecomptyp 
epicascl 
epicdsc2 
epicdsc3 
epicdsc4 
epicno 
=comReas 
compt 
edatee aE 
fname 


‘ hmatdesc 


hmattype 
Length 
majeast 
maj grid 
majnorth 
majsouth 
majwest 
mineast 
mingrid 
minnorth 
minsouth 


RelName 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
boarding 
vessel 
vessel 
vessel 
vessel 
vessel 
vessel 
vessel 
vessel 
vessel 
vessel 
vessel 
vessel 
boarding 
vessel 
vessel 
vessel 
vessel 
vessel 
boarding 
states 
rules 
datadict 
datadict 
rules 
colors 
rules 
rules 
Genstr 
constr 
courses 
courses 
days | 
district 
drstreict 
engcomp 
engcomp 
epic 
epic 
Gane 
epic 
epic 
fuelcomp 
fuelcomp 
forms 
forms 
hullmat 
hullmat 
datadict 
majarea 
majarea 
majarea 
majarea 
majarea 
minarea 
minarea 
minarea 
minarea 
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text 
text 
integer 
integer 
text 
text 
text 
text 
integer 
ext 
imceger 
text 
text 
text 
imeegqer 
text 
text 
text 
text 
text 
text 
text 
text 
Cext 
text 
text 
text 
text 
text 
text 
text 
text 
Cext 
text 
text 
text 
text 
text 
text 
text 
text 
Cext 


text 


text 
real 
text 
real 
real 
real 
real 
text 
real 
real 
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Source 


numerous 


ood 
sar fold 


AttName 
minwest 
numrule 
ostatdes 
ostattyp 
propdesc 
roptype 
ie 
registry 
relname 
rname 
rulvalue 
shade 
symbol 
s O 
tablel 
table2 
type 
vardesc 
varname 
vartype 
varusel 
violdesc 
Violino 
vtype 
vtypedes 
vuse 
vusedesc 
epiccode 
intdate 
intdob 
intfname 
intlname 
intm1 
intvname 
pintdate 
pintreml 
paintremz2 
pintrem3 
stolen 
vremarkl 
vremark2 
vremark3 
ssunrise 
ssunset 
alngdate 
alngtime 
cbeolor 
ceiling 
clouds 
dgcollor 
dvmdate 
dvmoored 
etadate 
folderno 
foldno 
hieelor 
homeport 
immedsar 
mucn 
offshore 
osdate 
oseta 
ostime 
Sailno 
sardate 


RelName 
minarea 
rules 
status 
status 
boatprop 
boatprop 
reports 
nations 
datadict 
reports 
rules 
colors 
datadict 
nations 
rules 
Les 
datadict 
Voarnaict 
vardict 
vardict 
vaca Ct 
viols 
viols 
boattype 


boattype 


boatuse 
boatuse 
Verearnte 1 
Vewance | 
erence | 
Bemainte | 
pecante | 
Pemrice | 
vslintel 
pemnce l 
pemuatce 1 
pemantel 
Berane 1 
Venantel 
vslintel 
Volemmte ] 
Vioneeace | 
sar 

sar 
sarunits 
sarunits 
vessel 
sar 

sar 
vessel 
Ssarunits 
sarunits 
sarunits 
Sa 
sarunits 
vessel 


vessel 


sar 

sar 
Sar. 
sarunits 
sarunlits 
sarunits 
vessel 
sar 


149 


text 
text 
text 
Cext 
date 
date 
text 
text 
Cext 
text 
date 
text 
Cext 
text 
text 
Text 
text 
Cesc 
time 
time 
date 
time 
text 


integer 
imeeger 


text 
date 
time 
date 
text 
text 
text 
text 
text 
text 


integer 


date 
time 
time 
Cext 
date 


Len 


40 


in 


OR un 
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Source 


system 


AttName 
sarda 
sarla 
sarlong 
sarnod 
sarpob 
sartime 
sarvhin 
seas 
slcolor 
sutdate 
sutmoor 
swells 
towdate 
towtilme 
EFGOLOr 
ucn 
unitname 
uwdate 
uwtime 
vVisdist 
vsicall 
vslmarks 
vslmasts 
vsloffno 
vslsuper 
vsivalue 
winddir 
waindspd 
1doper 
idowner 
opid 
opno 
ownld. 
ownno 


RelName 


sar 

sar 

sar 
vessel 
Saunt ts 
Sarunits 
sar 
Sarunits 
sarunits 
vessel 
=) i 
Samunits 
Sauumlts 
sarunicts 
sar 
vessel 
vessel 
vessel 
vessel 
vessel 
vessel 
Sar 

sar 
opvsl 
owvsl - 
operator 
opown 
owners 
opown 
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time 
imee ger 
Eexu 
Ee 
text 
Gest 
Cent 
dollar 
ineeger 
Laeeger 
imEeger 
Tieeger 
imeeger 
Lie ger 
ieee ger 
integer 


Len 
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boarding 


bomajor 


bominor 


Database Attributes Sorted by Where Used 


AttName 
adultpfd 
bodate 
boday 
bodist 
boname 
bono 
boopfac 
borate 
boreml 
borem2 
borem3 
botime 
boun1t 
bovhin 
bsunrise 
bsunset. 
chalaptd 
obsbody 
obscity 
obscount 
opslat 
obslong 
obsstate 
owstatus 
unss9 
uns70 
uns72 
uns73 
uns74 
uns75 
uns76 
uns77 
uns78 
uns79 
viol54 
Vieds> 
Vagl56 
VionS7 
ViEows3 
viol59 
v10160 
viol6él 
viol62 
viol63 
vio0l64 
viol65 
v1i0166 
v10167 
viol68 
vslpob 


majsouth 
majwest 
obslat 
obslong 
bono 

SE Eee 
GuLapct 
mineast 


RelName 


bosum 
bosum 
bosum 
bosum 
bosum 
bosum 
bosum 
bosum 
bosum 
bosum 
bosum 
bosum 
bosum 
bosum 
bes2tirq 
positirg 
positirg 
positirgq 
positfrq 
positfrq 
Geitirg 
osum 
bosum 
bosum 
positirg 
positirg 
positfrq 


loi 


integer 


date 
text 
text 
text 
text 
text 
text 
text 


_ text 


text 
text 
Cext 
Cex 
time 
time 


integer 


text 
text 
text 
real 
real 
text 
text 
Cext 
text 
text 
Cext 
text 
text 
text 
text 
text 
text 
text 
text 
text 
Cext 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 


integer 
Loe ger 


text 


integer 


real 
real 
text 
real 
real 
real 
real 
real 
text 


integer 


real 
real 
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Used In 


bominor 


Gnerp't 


daynight 


epicdump 


immedsar 


intelrpt 


AttName 
mingrid 
minnorth 
minsouth 
minwest 
obslat 
Op ge ong 


bovhin 
cmedecal 
cmedecal 
cmeyear 


- cmeyear 


eis . 
vslhin 
vsihin 
bodate 
botime 
bsunrise 
Dstmcet 
sardate 
sartime 
Souiiielse 
ssunset 
tmp 
ecnumber 
ecper 
epiccode 
eauccode 
epicdscl 
epicdscl 
epmeadsc2Z 
epaedscZ 
epicdsc3 
epicdsc3 
epicdsc4 
epicdsc4 
epicno 
epicno 
Dieeace 
intdate 
intdate 
intvdate 
intvname 
intvname 
intvname 
SEOten 
Sto lena, 
vremarkl 
vremark2 
vremark3 
folderno 
immedsar 
sardate 


tmp 
bodate 
bodate 
bono 
bono 
bono. 
bovhin 
bovhin 
constdes 
counter 


RelName 
pesitirg 
positfrq 
positfrq 
peel tera 
osum 
bosum 
bosum 
bovslsum 
bosum 
bovslsum 
bovslsum 
vslsum 
bovslsum 
vslsum 
temp 
bovslsum 
vslsum 
bosum 
bosum 
bosum 
bosum 
sarsum 
sarsum 
sarsum 
sarsum 
temp 
epictmp 
epictmp 
epicsum 
ep rernp 1 
epictmp 
epictmp2 
epictmp 
epictmp2 
epictmp 
epictmp2 
epictmp 
epictmp2 
epictmp 
epictmp2 
epicsum 
Ses eee 
stolesum 
Imce lsum 
epicsum 
intelsum 
stolesum 
epicsum 
stolesum 
intelsum 
intelsum 
intelsum 
sarsum 
sarsum 
sarsum 
temp 
Dosum 
violsum 
bosum 
violsum 
vsimo 
bosum 
violsum 
summary3 
summaryl 
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text 
date 
date 
text 
text 
Cext 
Cext 
Cext 
text 
integer 


RRR ~AIN~J~] 
OND 
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NON e ° 


Nh 


intelrpt 


AttName 


descprop 


. engdesc 


fueldesc 
hulldesc 
numconst 
numeng 
numfuel 
numhull 
numprop 
numuse 
tmp 
typedesc 
uns69 
uns69 
uns 7/0 
uns70 
uns71 
uns72 
uns72 
uns73 
uns73 
uns 74 
uns74 
uns75 
uns75 
uns76 
uns76 
uns77 
uns77 
uns78 
uns78 
uns79 
uns79 
usedesc 
v10154 
v10154 
Vireo s 
v1iol55 
v10156 
vV10156 
Views 7 
Viows7 
Violiss 
v10158 
v10159 
v10159 
viol60 
viol60 
v1o0l6l 
viol6l1 
v10162 
v10162 
v10l163 
v10163 
v1i0l164 
v1i0l164 
v10165 
ViIoOl65 
v10166 
v10166 
v10167 
v10167 
viol68 
v10168 
vslconst 


RelName 
summary6 
summary4 
summary5 
summary6 
summary3 
summary4 
summary5 
summary6 
summary7 
summaryZ 
temp 
summaryl 
bosum 
violsum 
bosum 
violsum 
bosum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
summary2 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
bosum 
violsum 
summary3 


RX 


Cext 
aeeger 
mee ger 
ieee r 
Lice ger 
fieeger 
Piece Fr 
text 
text 
Cext 
text 
Cext 
Cext 
Cext 
Cext 
text 
Cext 
text 
Cext 
Cext 
Cext 
Cext 
text 
text 
text 
Cext 
Cext 
Cext 
text 
text 
text 
Cext 
Cext 
Cext 
text 
Cext 
text 
text 
Cext 
text 
text 
Cext 
text 
text 
Cext 
text 
text 
text 
text 
Cext 
text 
Cext 
Cext 
Cext 
text 
text 
Cext 
text 
text 
text 
text 
Cext 
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Un 
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intelrpt 
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AttName 
vslconst 
vslconst 
vslconst 
vsleng 
vsleng 
vsleng 
vsleng 
vslfuel 
Viceenue | 
Ve lnue | 
vslftuel 
vslhin 
vslhin 
vslhull 
vslhull 
vslhull 
vslhull 
vsllenft 
vsllenft 
vsllenft 
vslprop 
vslprop 
vslprop 
vslprop 
vsltons 
vsltons 
vsltype 
vsltype 
vsltype 
vsltype 
vsluse 
vsluse 
vsluse 
vsluse 
vslyear 
vslyear 
vslyear 
weapons 
weapons 
opaddr 
opaddr 
opcity 
ODEZEY 
opcourse 
opcourse 
opdob 
opdob 
opfname 
opfname 
opid 
opid 
oplname 
oplname 
opm1 
opm1 
opstate 
opstate 
optelno 
optelno 
opzip 
opzip 


Re lName 
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text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
Cenc 
iieeger 
imLeger 
iieeger 
text 
text 
text 
Geet 
imeeger 
ineeger 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
Eexc 
maicege r 
PaAeegqer 
text 
text 
text 
text 
text 
text 
date 
date 
text 
Eext 
lege fr 
integer 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
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Used In 


opervsls 


AttName 
ebeolor 
cmedecal 
cmeyear 
dkcolor 
hecolor 
homeport 
idoper 
1doper 
opaddr 
opaddr 
opaddr 
opcity 
opcity 
opcity 
opcourse 
opcourse 
opdob 
opdob 
opdob 
opfname 
opfname 
opfname 
opid 
opid 
oplname 
oplname 
oplname 
opm1 
opmi 
opm1 
opstate 
opstate 
opstate 
optelno 
optelno 
optelno 
opzip 
Op4éip 
Op21ip 
sailno 
slcolor 
trcolor 
vhinoper 
vhinoper 
vsicall 
vslconst 


‘vsleng 


vslfuel 
vslhin 
vslhin 
vslhp 
yslhull 
vsllenft 
vsllenin 
vslmake 
vslmarks 
vslmasts 
vslmodel 
vsilname 
vslname 
vsino 
vsloffno 
vslprop 
vslsuper 
vsltons 


Re lName 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvslsl 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opervsls 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 


opvsls2 - 


opvsls2 
opervsls 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 


155 


integer 
integer 
text 
text 
text 
Cext 
text 
text 
text 
text 
date 
date 
date 


-text 


text 
Cexr 
INCSGer 
integer 
EexXt 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
Cext 
text 
text 
Cext 
text 
text 
Cext 
Cext 
text 
text 


text 


text 
text 
text 
text 
text 
text 
fee ger 
integer 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
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opervsls 


owners 


ownervsl 


AttName 
vsltype 
vsluse 
vsivalue 
vslyear 
ownaddr 
ownaddr 
ownclity 
owncity 
owndob 
owndob 
ownfname 
ownfname 
ownid 
ownid 
ownlname 


ownlname. 


ownm1 
ownml 
ownstate 
ownstate 
owntelno 
owntelno 
ownzip 
ownz1p 
cbcoamor 
cmedecal 
cmeyear 
dikeolor 
hicolor 
homeport 
idowner 
1downer 
ownaddr 
ownaddr 
ownaddr 
owncity 
owncity 
owncity 
owndob 
owndob 
owndob 
ownfname 
ownfname 
ownfname 
ownid 
owni1d 
ownlname 
ownlname 


ownlname - 


ownm1 
ownm1 
ownm1 
ownstate 
ownstate 
ownstate 
owntelno 
owntelno 
owntelno 
ownzip 
ownzip 
ownzip 
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slcolor 
tycolor 
vhinown 


RelName 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
ownsuml 
ownsum2 
ownsuml 
ownsumz2 
ownsuml 
ownsum2 
ownsuml 
ownsum2 
ownsuml 
ownsum2 
ownsuml 
ownsum2 
ownsuml 
ownsumzZ 
ownsuml 
ownsumZ 
ownsuml 
ownsumz2 
ownsuml 
ownsumzZ 
ownvslsZ 
ownvslsZ 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvslsl 
ownvsls2 
ownvsls 
ownvslsl 
ownvsls2 
ownvsls 
ownvslsl 
ownvsls2 


ownvsls 


ownvslsl 
ownvsls2 
ownvsls 

ownvslsl 
ownvslsZ 
ownvslsl 
ownvslsZ2 
ownvsls 

ownvslsl 
ownvslsZ2 
ownvsls 

ownvslsl 
ownvsls2 
ownvsls 

ownvslsl 
ownvsls2 
ownvsls 


- ownvslsl 


ownvsls2 
ownvsls 

ownvslsl 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvslsl 
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date 
text 
Eext 
anceger 
integer 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
cext 
text 
text 
text 
text 
Bex 
Bee ger 
taee ger 
text 
text 
text 
text 
text 
text 
date 
date 
date 
text 
text 
text 
Bee ger 
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text 
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perintel 
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AttName 
vhinown 
vslcall 
vslconst 
vsleng 
vslfuel 
vslhin 
vslhin 
vslhp 
Ve Maul 1 
vsllenft 
vsllenin 
vslmake 
vsimarks 
vslmasts 
vslmodel 
vslname 
vslname 
vslno 
vsloffno 
vslprop 
vslsuper 
vsltons 
vsltype 
vsluse 
vslvalue 
vslyear 
intdob 
intfname 
intlname 
untmi 
pintdate 
pintreml 
pintrem2 
intrem3 
odate 
boname 
bono 
borate 
boreml 
borem2 
borem3 
botime 
bovhin 
ebeolor 
Geeolor 
cmedecal 


cmedecal - 


cmeyear 
cmeyear 
dkcolor 
dkcolor 
epiccode 
folderno 
hicelor 
hileolor 
homeport 
homeport 
idoper 
idoper 
idowner 
idowner 
immedsar 
intdate 
intdob 
intfname 


RelName 
ownvslsZ2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvslsZ2 
ownvsls 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvslis2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
persum 
persum 
persum 
persum 
persum 
persum 
persum 
ersum 
ohis 
bohis 
bohis 
bohis 
bohis 


‘bohis 


bohis 
bohis 
bohis | 
pvsljoin 
wvsljoin 
pvsljoin 
wvsljoin 
pvsljoin 
wvsljoin 
pvsljoin 
wvsljoin 
vslint 
sarhis_ 
pvsljoin 
wvsljoin 
pvsljoin 
wvsljoin 
pvsljoin 
vslsopr 
vslsown 
wvsljoin 
sarhis 
vslint 
pemant 
perint 


ey 


text 
text 
text 
text 


integer 
integer 


text 
text 
text 
text 
text 
Cext 
text 
Cext 
Cext 
text 


integer 


Cext 
Cext 


dolar 


text 
date 
text 
text 
text 
date 
text 
text 
text 
date 
text 
text 
Cext 
text 
text 
Texe 
time 
text 
text 
text 
text 
text 
Cext 
text 
text 
Cext 
Cext 
text 
text 
text 
text 
text 


integer 
reece tr 
eee ger 
integer 


text 
date 
date 
text 


eZ 


DOD WW ~~) WW BRE WW 


uid 


LS 


Used In 


quer_per 


AttName 
intlname 
age oy al 
intvname 
mucn 
obslat 
obslong 
offshore 
Eamecece 
pintreml 
pintremz 
PIWeErem3 
sailno 
sailno 
sardate 
sarlat 
sarlong 
sarnod 
sarpob 
sartime 
sarvhin 
sSico lor 
slicolior 
stolen 
tmp 
treolor 
Ercolor 
ucn 
uns69 
uns70 
uns71 
uns72 
uns73 
uns74 
uns75 
uns76 
uns77 
uns78 
uns79 
vhinoper 
vhinoper 
vhinown 


V10163 
vremarkl 
vremark2 
vremark3 
vslcall 
vslcall 
vslconst 
vslconst 
vsleng 


RelName 
perint 
perint 
vslint 
sarhis 
bohis 
bohis 
sarhis 
Berane 
Pobre 
perint 
Becint 
pvsljoin 
wvsljoin 
sarhis 
sarhis 
sarhis 
sarhis 
sarhis 
sarhis 
sarhis. 
pvsljoin 
wvsljoin 
vslint 
rene , 
pvsljoin 
wvsljoin 
sarhis 
bohis 
pohis 
bohis 
bohis — 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis | 
pvsljoin 
vslsopr 
vslsown 
wvsljoin 
bohis 
bohis 
bohis 
bohis 
bohis 
pohis 
bohis - 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
vslint 
vslint 
Veins 
pvsljoin 
wvsljoin 
pvsljoin 
wvsljoin 
pvsljoin 
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integer 


date 
text 
text 
text 
text 
text 
date 
real 
real 
cext 


integer 


time 
text 
text 
text 
text 
text 
text 
text 


- Cext 


text 
Cext 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
Cext 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
Cext 
text 
text 
text 
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(Fle ¢ 


bo 
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PRRPRPRPRPRP RRP PPP PRP PPrEr 
NO DON DO 


ere ~~) ~] 
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re 


quer_per 


quer_vsl 


AttName 
vsleng 
vslfuel 
vslfuel 
vslhin 
vslhin 
vslhp 
vslhp 
vslhull 
vslhull 
vsllenft 
vslienft 
vsllenin 
vsllenin 
vslmake 
vslmake 
vslmarks 
vslmarks 
vsimasts 
vslmasts 
vslmodel 
vslmodel 
vsiname 
vsiname 
vslno 
vsino 
vsloffno 
vsloffno 
vslpob 
vslprop 
vslprop 
vslsuper 
vslsuper 
vsltons 
vsltons 
vsltype 
vsltype 
vsluse 
vsluse 
vslvalue 
vslvalue 
vslyear 
vslyear 
weapons 
bodate 
boname 
bono 
borate 
boreml 
borem2 
borem3 
botime 
bovhin 
eapeccs 
Folderno 
immedsar 
intdate 
intdob 
intfname 
intlname 
intml 
intvname 
mucn 
obslat 
obslong 
offshore 


RelName 
wvsljoin 
pysljoin 
wvsljoin 
pysljoin 
wvsljoin 
pvsljoin 
wvsljoin 
pysljoin 
wvsljoin 
pvsljoin 
wvsljoin 
pyvsljoin 
wvsljoin 
pyvsljoin 
wvsljoin 
pvsljoin 
wvsljoin 
pvsljoin 
wvsljoin 
pvsljoin 
wvsljoin 
ovsljoin 
wvsljoin 
pysljoin 
wvsljoin 
pysljoin 
wvsljoin 
bohis | 
pyvsljoin 
wvsljoin 
pvsljoin 
wvsljoin 
pysljoin 
wvsljoin 
pyvsljoin 
wvsljoin 
pyvsiioin 
wvsljoin 
pyvsljoin 
wvsljoin 
pyvsljoin 
wvsljoin 
bohis 
bohis 
bohis 
bohis. 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
Vslant 
sarhis 
sarhis 
votint 
perint 
perint 
perint 
Ber int 
Melaint 
sarhis 
bohis 
bohis 
sarhis 


bs? 


text 
Cext 
Cext 
Cext 
cexc 
imecger 
tieeger 
imeeger 
ee eh 
Cext 
text 
Cext 
text 
text 
Cext 
text 
text 
text 
Cext 
text 
Cext 
Cext 
come 
Paeeget 
Cext 
text 
text 
cet 
fieeger 
invceger 
text 
Cext 
text 
Cext 
dollar 
dollar 
text 
Eeaxt 
ieee ge lr 
date 
Cext 
text 
text 
Cext 
Cext 
Bent 
time 
Cext 
text 
Cext 
text 
date 
date 
text 
Cext 
Cext 
text 
Cext 
real 
real 
wnEeger 


Len 
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Used In 


quer_vsl 


sardump 


AttName 


pintdate 
pintreml 
pintrem2 
pintrem3 


sardate 
sarlat 
sarlong 
sarnod 
sarpob 
sartime 
sarvhin 
stolen 
tmp 

ucn 
uns69 
uns70 
uns71 
uns72 
uns73 
uns 74 
uns75 
uns76 
uns77 
uns78 
uns79 
v10154 
Vali 5 
ViICUsSs 
vaio 157 
Vass 
v10159 
viol60 
viol6él 
viol62 
v10163 
Vv1i0164 
viol65 
yv1o0l166 
V10 le, 
v10168 


vremarkl 
vremark2 
vremark3 


vslpob 
weapons 
ceiling 
clouds 


folderno 
immedsar 


mucn 


offshore 


sardate 
sarda 
sarla 
sarlong 
sarnod 
sarpob 


sartime 


sarvhin 
seas 


ssunrise 


ssunset 
swells 
Uche 
Visdist 


RelName 


perint 
perinct 
pemant 
perint 
sarhis 
Sairhnis 
Sarah s 
Syeyelolalts 
Saehnis 
sarhis 
sarhis 
vslint 
temp | 
Samnis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis~ 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
bohis 
vslint 
vslint 
vslint 
bohis 
bohis 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
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Mice ger 
time 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
cext 
text 
text 
text 
text 
text 
Eexc 
dimgee ger 
Tate Ce i 
aPce ger 
Lace ger 
text 
text 
ec C 
ace ger 
date 
text 
real 
real 
text 
Taeeger 
time 
Gent 
Inge ger 
ane 
time 
iiee ger 
text 
rmteger 


Len 


PRR RRP PRP RRP RPP RP RRR HRP RRP RRP HRP RPRPONFE 


J~~) 
OOO 
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Used In 


sarmajor 


sarminor 


sarsmbt 


sartimes 


smboatrp 


AttName 


windspd 
folderno 
folderno 
pctuncr 
sardate 
sardate 
sarday 
sarday 
sarnum 
saryear 


eb 
folderno 
PRE Gent 
gridpct 
majeast 
majgrid 
majnorth 
majsouth 
majwest 
sarlat 
sarlong 
folderno 
eee ent 
griapct 
mineast 
mingrid 
minnorth 
minwest 
sarlat 
sarlong 
folderno 
sarlat 
sarlong 
tm 
alngdate 
alngdate 
alngtime 
alngtime 
dvmdate 
dvmoored 
foldno 
foldno 
foldno 


-foldno 


foldno 
osdate 
osdate 
ostime 
ostime 
sutdate 
sutmoor 
tmp 
towdate 
towtime 
uwdate 
uwdate 
uwdate 
uwtime 
uwtime 
uwtime 
bono 
obslat 
obslong 
tmp 


RelName 


sarstat 
temp 
sarsum 
positfirg 
positfrg 
besttrrg 
positirg 
positird 
posttrrgq 
positfrq 
sarsum 
sarsum 
sarsum 
positirg 
positird 
positfirg 
positird 
positirg 
positfrgq 
sarsum 
sarsum 
sarsum 
sarsum 
sarsum 
ee 
sartime3 
sartime4 
sartime3 
sartime4 
sartimes 
sartime5 
sabramel 
SaneameZ 
sartime3 
sartime4 
Soeermeo 
Ser t ime 1 
sartime4 
sarcame t 
sartime4 
sartimez 
sartime2 
pean. 
Sar cime> 
sartimeds 
Saat ume L 
sartime2 
sartime3 
sartimel 
sartimez 
sartime3 
bosum 
bosum 
bosum 
temp 
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integer 
ingeger 
text 
text 
real 
date 
date 
text 
cexc 
Pee Cer 
text 
text 
Gert 
mee Ger 
real 
real 
text 
real 
real 
real 
real 
real 
beget 
ree cger 
real 
real 
text 
real 
real 
real 
real 
text 
real 
real 
text 
date 
date 
time 
time 
date 
time 
text 
text 
text 
text 
text 
date 
date 
time 
time 
date 
time 
text 
date 
time 
date 
date 
date 
time 
tame - 
time 
text 
real 
real 
text 


Len 
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Used In 


vessel 


AttName 
EDcoror 
ebco lor 
cbcolor 
cmedecal 
cmedecal 
cmedecal 
cmeyear 
cmeyear 
cmeyear 
dkcolor 
dkcolor 
dkcolor 
hnileolor 
bkeoilor 
hicelor 
homeport 
homeport 
homeport 
salino 
sailno 
sailno 
slcolor 
sileolor 
Sleeror 
EGEGlOLr 
treelor 
trcolor 
vsicall 
vslcall 
vslcall 
vslconst 
vslconst 
vslconst 
vsleng 
vsleng 
vsleng 
vslfuel 
vslfuel 
vslfuel 
vslhin 
vslhin 
vslhin | 
vslhp 
vslhp 
vslhp 
vslhull 
vslhull 
vslhull 
vsllenft 
vsllenft 
vsllentt 
vsllenin 
vsllenin 
vsllenin 
vslmake 
vslmake 
vsilmake 
vslmarks 
vslmarks 
vslmarks 
vslmasts 
vslmasts 
vslmasts 
vslmodel 
vslmodel 


RelName 


vslsuml 
vslsum2 
vslsum 

vslsuml 
vslsum2 
vslsum 

vslsuml 
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text 
text 
Lest 
Cext 
Cert 
Cesc 
test 
Lega 
text 
EersL 
Eesae 
text 
Ceme 
Cet 
Cees 
Lhneeger 
Lhngeger 
theeger 
LnEeger 
inee Ger 
immeeger 
Cert 


text 


text 
text 
text 
text 
text 
text 
text 
text 
text 
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Used In 


violfregq 


vsloper 


AttName 
vslmodel 
vslname 
vslname 
vslname 
vslno 
vslno 
vslno 
vsloffno 
vsloffno 
vsloffno 
vslprop 
vslprop 
vslprop 
vslsuper 
vslsuper 
vslsuper 
vsltons 
vsltons 
vsltons 
vsltype 
vsltype 
vsltype 
vsluse 
vsluse 
vsluse 
vslvalue 
vslvalue 
vslvalue 
vslyear 
vslyear 
vslyear 
bono 

tmp 
uns69 
uns70 
uns71 
uns72 
uns73 
uns74 
uns75 
uns76 
uns77 


uns78 


uns79 
viol54 
Viol55 
viol56 
vio0l57 
viol58 
viol59 
viol60 
viol61 
viol62 
v1i0163 
vio0l64 
viol65 
viol66 
v10167 
vio0l68 
cbcolor 
cmedecal 
cmeyear 
dkcolor 
hlcolor 
homeport 


RelName 


vslsuml 
vslsum2 
vslsum 
vslsuml 
vslsum2 
frqchart 
temp 
Erqchart 
Erqchart 
Erqchart 
frqchart 
peachart 
Erqchart 
frqchart 
fagchart 
Beoechart 
Erqchart 
frqchart 
Reccmdar t 
Erqchart 


Erqchart - 


freehart 
frqchart 
froehart 
Erqchart 
frqchart 
frqchart 
frqchart 
frqchart 
Erqchart 
frqchart 
frqchart 
frqchart 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
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text 
text 
text 
text 
Cexc 
iiiwe Jer 
Tie Ger 
integer 
text 
text 
text 
text 
text 
text 
dollar 
dollar 
dollar 
text 
Cent 


text 
text 
text 
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Used In 


vsloper 


AttName 
idoper 
idoper 
opaddr 
opaddr 
opaddr 
opcity 
opcity 
opcity 
opcourse 
opcourse 
opdob 
opdob 
opdop 
opfname 
opfname 
opfname 
opid 
oop Ke! 
oplname 
op lname 
oplname 
opm 
opm1 
opm1 
Opstarce 
opstate 
opstate 
optelno 
optelno 
optelno 
opzip 
opzip 
Op2ip 
sailno 
slcolor 
trneetor 
vhinoper 
vhinoper 
vslcall 
vsiconst 
vsleng 
vsBruel 
vslhin 
vslhin 
vslhp 
vslhull 
Veuent t 
vsllenin 
vsilmake 
vslmarks 
vslmasts 
vslmodel 
vsilname 
vslname 
vslno 
vsloffno 
vslprop 
vslsuper 
vsltons 
vsltype 
vsluse 
vslvalue 
vslyear 


RelName 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opervsls 
opvslsl 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvslsl 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opervsls 
opvsls2 
opvsls2 
opvsls2 


- opvsls2 


opvsls2 
opysls2 
opvsls2 
opvsls2 
opvsls2 
opervsls 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
opvsls2 
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integer 
integer 
text 
text 
text 
text 
text 
text 
text 
text 
date 
date 
date 
text 
text 
text 


text 
text 
text 
cect 
Preeger 
impteger 
text 
text 
text 
text 


integer 
text 
text 
dollar 
text 


mb 
UU 
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Used In 


vslowner 


AttName 
cbc@lor 
cmedecal 
cmeyear 
dkcolor 
hlcolor 
homeport 
idowner 
idowner 
ownaddr 
ownaddr 
ownaddr 
owncity 
owncity 
owncity 
owndob 
owndob 
owndob 
ownfname 
ownfname 
ownfname 
ownid 
ownld 
ownlname 
ownlname 
ownlname 
ownm1 . 
ownm1 
ownml 
ownstate 
ownstate 
ownstate 
owntelno 
owntelno 
owntelno 
ownZip 
ownzip 
ownzip 
sallno 
sleolor 
trcolor 
vhinown 
vhinown 
vslcall 
vslconst 
vsleng 
vslfuel 
vslhin 
vslhin 
vslhp 
vslhull 
vellenft 
vsllenin 
vslmake 
vsilmarks 
vslmasts 
vslmodel 
vslname 
vslname 
vslno 
vsloffno 
vslprop 
vslsuper 
vsltons 
vsltype 
vsluse 
vslvalue 
vslyear 


Re lName 

ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvslsZ2 
ownvslsl 
ownvsls2 
ownvsls 

ownvslsl 
ownvsls2 
ownvsls 

ownvslsl 
ownvsls2 
ownvsls 

ownvslsl 
ownvsls2 
ownvsls 

ownvslsl 


ownvsls2 


ownvslsl 
ownvsls2 
ownvsls 

ownvslsl 
ownvsls2 
ownvsls 

ownvslsl 
ownvsls2 
ownvsls 

ownvslsl 
ownvsls2 
ownvsls 

ownvslsl 
ownvsls2 
ownvsls 

ownvslsl 
ownvsls2 
ownvsls2 
ownvsls2 
ownvslsZ2 
ownvslsl 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls 

ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls 

ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
ownvsls2 
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text 


ice ge& 
integer 


text 
fext 
text 
text 
text 
text 
date 
date 
date 
text 
text 
text 


integer 
integer 


Cext 
text 
text 
Cext 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 


text 
Cext 


integer 


text 
text 


dollar 


text 
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addlownr 


are 2 
aLgavg 

algtimes 
allrecs 


anytype 
Se oaten 
aprdatez 
- aprsar 
augdatel 
augdatez 
augsar 
bl 


Program Variables Sorted by Variable Name 


integer 
feat 
imeeger 
Peat 


text 
date 
aace 
integer 
date 
ait, e 
integer 
date 


text 
text 
real 
real 
text 
text 
text 
text 
text 
Cexe 
time 


text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
real 


text 
text 
text 
text - 
text 
text 
text 
text 
text 
text 


Used In 


add_sbd. 
add_sbd. 
add_sar. 
add_sbd. 
cmerpt. 


opervsl. 


opervsls.prg 


ptg 
prg 
prg 
prg 


prg 
sartimes.prg 
sartimes .prg 


prg 


ownvsl.prg 
ownvsl.prg 
vsloper.prg 


vsloper. 


vslowner.prg 
vslowner.prg 


prg 


vessel.prg 
sarday.prg 


sarday. 


prg 


sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 


add_brd. 
add_sbd. 
mea brd. 
mod brad. 
mod brd. 
mod _brd. 
mod brad. 
mnod_brd. 
mod brd. 
mod_brd. 
mod _brd. 
mod _ brd. 
toc ord. 
add_brd. 
add_sbd. 
mod _brd. 
mod _brd. 
mod brd. 
mod _brd. 
mod lord. 
mod brd. 
mod brd. 
moqgeord. 
mod _brd. 
mod brd. 
mea ord. 
moa ord. 
gaceprd. 
add_sbd. 
mod 6rd. 
mod brd. 
mod _brd. 
mod _brd. 
mod_brd. 
mod brd. 
moa Drd. 
noeavord. 
moclbrd. 
mod_brd. 
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prg 
prg 
prg 
prg 
prg 
Pig 
Prg 
Prg 
prg 
prg 
ptg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
pig 
prg 
prg 
prg 
prg 
Prg 
prg 
Prg 
Prg 
ptg 
Prg 
prg 
prg 
prg 
prg 
prg 
prg 
ptg 
ptg 
ptg 


Description 
user input 
user input 
User Inpue 


counting variable | 
average alongside time 
counting variable 

flag - all records? 


flag variable 
starting date 
ending date 
summation variable 
starting date 
ending date 
summation variable 
bodate in boarding 


obscity | 
obsstate in boarding 
obslat in boarding 
obslong in boarding 
viol54 in boarding 
viol55 in boarding 
viol56 in boarding 
viol57 in boarding 
vio0l58 in boarding 
viol59 in boarding 
botime in boarding 


viol61 in boarding 
viol61 in boarding 
viol62 in boarding 
viol63 in boarding 
viol64 in boarding 
viol65 in boarding 
viol66 in boarding 
viol67 in boarding 
viol68 in boarding 
uns69 in boarding 
bono in boarding 

obslat in boarding 


uns70 in boarding © 
uns71 in boarding 
uns72 in boarding 
uns73 in boarding 
uns74 in boarding 
uns75 in boarding 
uns76 in boarding 
uns77 in boarding 
uns78 1n boarding 
uns79 in boarding 


Bbetore/( 
bohisprn 


Born 
chances 
change 


chk_hin 
chk_name 


chk_ownr 
Gaigenin 
enieeant 1 
chk_name 
chk_no 


chk_op 
chkoffno 
choice 


cmecount 
code 
constrds 
GOnsetst 
eont 


correct 


integer 
real 


text 
text 
text 
text 
text 
text 
text 
text 
cezc 
time 
Becger 
time 
Cex 
Le ere) GF 
Preece tr 
text 
text 
text 
text 


integer 
text 
esau 
integer 
text 
text 
text 
text 


integer - 


Tmbeger 
text 
text 
text 


text 


Used In 
mod_brd.prg 
add_brd.prg 
add_sbd.prg 
Medword .prg 
Neamora. ord 
mod_brd.prg 
nedeora.pre¢ 
modeprd.prg 
Meodebka- ard 
mod_brd.prg 
MoGme cd .ord 
mod_brd.prg 
mod_brd.prg 
MOGeD helo imc 
mod_brd.prg 
qorel Vepelalsiepets| 
mod_brd.prg 
mod_brd.prg 
MNedeera.prd 
NeGmeEd.prd 
NOodeora. ord 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
CmeRpe. Or 
quer_per.prg 
quer_vsl.prg 
mod_sut.prg 
SEARED ADIL? 
mod_sar.prg. 
mod_sut.prg 
sarday.prg 
mod_brd.prg 
mod_vhin.prg 
mod_brd.prg 
Meaevnaln.prg 
mod_owop.prg 
quer_vsl.prg 
guer_vsl.prg 
quer_vsl.prg 
quer_vsl.prg 
quer_per.prg 
guer_vsl.prg 
addusrdsprg 
add_sar.prg 
add_sbd.prg 
am_pint.prg 
am_vint.prg 
mod_owop.prg 
mod _owop.prg 
packdbms.prq 
gquer_vsl.prg 
vessel.prg 
cmerpt.prg 
IMGeLEpu.prg 
PGereEpieG. preg 
PG @ lett. Orc 
adgubrd.prg 
add_sar.prg 
add_sbd.prg 
am_pint.prg 
am_vint.prg 
mod_brd.prg 
mod_sar.prg 
mod_sut.prg 
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Description 
Ventee in boarding 
obslong in boarding 


boreml in boarding 
borem2 in boarding 
borem3 in boarding 
boname in boarding 
borate in boarding 
bounit in boarding 


bodist in boarding 


boopfac in boarding 
boday in boardin 
Dewmeise ineboard: 
adultpfd in boarding 
bsunset in boarding 


bovine boarding 


weapons in boarding 
childpfd in boarding 
owstatus in boarding 
in boarding 


obsbody 
obscount in boarding 


flag 


variable 


counting variable . 


user 
flag 


input 


Variable 


chances oe logon 


flag 


varlable 


variable 
variable 


variable 
variable 
variable 
variable 
variable 
Variable 
variable 


input variable 


counting variable 
input variable 


= consdesc in CONSTR 
= constype in CONSTR 


user 


user 


input 


input 


aaa 


correct 


count 


datadiff 
datdiff 
datediff 


datedour 
daybrd 
daysar 
decdatel 
decdate2 
decsar 
GiES CO 


difsar 


done 


easttst 


edscl 
edsc2 
edsc3 
edsc4 
enddate 


integer 


integer 
Integer 
invegéer 


nee 
THESger 
Lnwege r 
date 
date 
Babee r 
Eee G 


text 
text 


real 


text 
text 
Cext 
text 
date 


Used In 
mod_vhin.prg 
mod_vhin.prg 
quer_per .prg 
gquer_vsl.prg 
sarday.prg 
startup.prg 
bominor.prg 
bomajor.prg 
boarding.prg 
bominor.prg 
cmerpt.prg 
daynight.prg 
epicdump.prg 
immedsar.prg 
imeelrot.org 
OUeErALOn.urg 
owners.prg 
Denice lord 
sardump.prg 
sarmajor.prg 
sarminor.prg 
sarsmbt.prg 
sartimes.prg 
SMBoa bho aang 
V POE Peclap ag 
sartimes.prg 
daynight.prg 
daynight.prg 
sarday.prg 
See creas 
sarday.prg 
add ena 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_ownr.prg 
add_sut.prg 
mod_sut.prg 
Guar Dem ierg 
bomajor.prg 
bominor.prg 
sarmajor.prg 
sarminor.prg 
epicdump.prg 
epicdump.prg 
epicdump.prg 
epicdump.prg 


boarding.prg. 


bomajor.prg 
bominor.prg 
GherDicwemg 
daynight.prg 
epicdump.prg 
immedsar.prg 
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“Prg © 


Description 


user input 


counting variable 


date difference 
date difference 
date difference 


time computation variable 
counting variable 
counting variable 

starting date 

Sticdinc ra ciee mss 

summation variable 

flag variable 


flag variable 
flag variable 


nautical position coord. 


ending date 


epicdscl in VSLINTEL 


epicdsc2 
epicdsc3 
epicdsc4 


in VSLINTEL 
in VSLINTEL 
in VSLINTEL 


enddate 


endltr 


engdescr 
enges C 
epicnum 
emictest 
= 


error 


fdesc 
febdatel 
febdatez2 
febsar 
fixopr 


fixown 


fixvsl 
foldok 
found 
foundv 
friday 
fueltst 


go 7 
qeident 
hdesc 


hulltst 
LPmarea 


initdate 
inpct 


text 


text 
text 
Ineeger 
text 
tex 


text 


text 
date 
date 
ieee lr 
text 


text 


text 
Ose 
Cext 
Cexzu 
nee ger 
text 
text 
Ineeger 


text 
Cem 
inkeger 


date 
real 


Used In 
intelsum.prg 
operator.prg 
owners.prg 
perintel.prg 
sarday.prg 
sardump.prg 
sarmajor.prg 
sarminor.prg 
sarsmbt.prg 
sartimes.prg 
smboatrp.prg 
violfreq.prg 
OpehabLoh.pig 
opervsl.prg 
opervsls.prg 
owners .prg 
Cuma. bed 
Den ire. .prg 
vessel.prg 
vsloper.prg 
vslowner.prg 
intelrpt.prg 
ITS EEL CG 
epicdump.prg 
epicdump.prg 
NOG@eora. prg 
mod_brd.prg 
mod_owop.prg 
mod_sar.prg 
mod_vhin.prg 
mod_brd.prg 
mod_owop.prg 
mod_owop.prg 
mod_vhin.prg 
intelrpt.prg 
Sarday.prg 
sarday.prg 
Sarday.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
Aiievel ies or G 
mod_sut.prg 
sar aere 
mod_vhin.prg 
saree eeto 
intelrpt.prg 
mod_owop.prg 
sarmajor.prg 
sarminor.prg 
intelrpt.prg 
libetiaac.prg 
bomajor.prg 
bominor.prg 
sarmajor.prg 
sarminor.prg 
sarday.prg 
bomajor.prg 
bominor.prg 
sarmajor.prg 
sarminor.prg 
sarsmbt.prg 
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Description 


ending date 


ending letter 


ecomptyp in ENGCOMP 
ecomptype in ENGCOMP 
COune@»mgevariable 

= €piceede im VSLINGEL 
USGI nheut 


flag variable 


= fcompdes in FUELCOMP 
starting date 

ending date 

summation variable 
flag variable 


flag variable 


user input 

flag variable 

flag variable 

USer Inpiie 

counting variable 

= fcomp yp in FUELCOME 
user inpu 

counting variable 


= hmatdesc in HULLMAT 
= hmattype in HULLMAT 
Summation variable 


starting date 
percentage 


inpcttmp 
inside 


jandatel 
jandatez 
ansar 
juldatel 
juldate2 
ulsar 
jundatel 


jundate2 
unsar 
egalch 
legaltyp 
legaluse 
len2030 
1len3040 
len4050 
len5060 
len6070 
len7080 
1len8090 
len30100 
len<20 
len>100 
loadmenu 


loadok 
ltvdare 


mardatel 
mardate2 
marsar. 
maxaltim 
maxostim 
maxshtim 
maxtttim 
maxtwtim 
maydatel 
maydatez2 
maysar 
menu 
minaltim 
minostim 
minshtim 
mintttim 
mintwtim 
monday 
more 


real 
Iimeeger 


date 
date 
MES Cet 
date 
date 
Ieeger 
date 


date 
Integer 
text 
Cext 
text 
INnGeger 
IMEC el 
Integer 
iieeger 
IMEe Ger 
integer 
LnGe@er 
integer 
integer 
ingeger 
texze 


text 
Imeeger 


date 
date 
integer 
real 
real 
real 
real 
real 
date 


‘date 


integer 
text 
real 
real 
real 
real 
real 
integer 
text 


Used In 


sarsmbt.prg 
sarsmbt.prg 
smboatrp.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 


sardates 


-prg 


sarday.prg 
sarday.prg 
sarday.prg 
vessel.prg 
vessel.prg 
vessel.prg 


Ure erent 
IEEE a 
intéirpe 
PES Lope 
pho ieje gee 
ingelrpt 
Hove (= lgeje 
Li@eretion 
intelrpt 


intelrpt. 


-Prg 
“Prg 
-prg 
“prg 
-prg 
-Pprg 
-prg 
“prg 
-Pprg 
prg 


Description 


percentage 
summation variable 


startin 
endin 


date 


ate 


summation variable 


startin 
endin 


date 


ate 


summation variable | 
time computation variable 


ending jeans 
1 


summa 


flag variable 
tlag variable 
flag variable 


counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 


variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 


on variable 


aaa 5rd sping 
add_sar.prg 
add_sbd.prg 
add_ownr.prg 
operator.prg 
opervsl.prg 
opervsls.prg 
owners .prg 
ownvsl.prg 
Berance Peerg 
vessel.prg 
Vs looper. eng 
vslowner.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sartimes.prg 
sartimes.prg 
sartimes.prg 
sartimes.prg 
sartimes.prg 
sarday.prg 
sarday.prg 
sarday.prg 
quer_vsl.prg 
Sartimes.prg 
sartimes.prg 
sartimes.prg 
sartimes.prg 
sartimes.prg 
Senay Die 
add_sbd.prg 
addBrd: png 
add_ownr .prg 
add_sar.prg 
am_pint.prg 
am_vint.prg 
mod_brd.prg 
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flag variable 


flag variable 
letter difference 


starting date 

ending date | 
summation variable | 
maximum alongside time 
maximum on scene time 
maximum search time 
maximum total case time 


. maximum towing time 


starting date 

ending. @ace 
summation variable 
flag variable | 
minimum alongside time 
minimum on scene time 
minimum search time | 
minimum total case time - 
minimum towing time 
counting variable 

flag variable 


mrintel 


mrname 
mropers 


mrownrs 


mrsar 
mrsut 
mrunits 


mevsis 


name 
nameok 
new 
nitebrd 
nitesar 
nmchange 
northtst 


notimmed: 


novdatel 
novdatez2 
novsar 
numrows 


numyears 
obslat 
obslong 
octdatel 
octdate2 
octsar 
old 
alarold 
opl 


text 


text 
text 


text 


text 
text 
text 


text 


text 
text 
Leger 
ImEeCger 
integer 
CEXC 
real 


integer 
date 
aate 
integer 
integer 


integer 
real 
real 
date 
date 
integer 
integer 
text 
text 


Used In 
mod_sar.prg 
mod_sut.prg 
Neauvain.prg 
quer_per.prg 
quegevsl.prg 
am_pint.prg 
amy ie. Dr g 
quer_per.pr 
add Beorc” 
add_sbd.prg 
add_brd.prg 
add_ownr.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
mod_sut.prg 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_brd.prg 
mod_vhin.prg 
mod_sut.prg 
quer_vsl.prg 


sarday.prg 
are iprs 


GayanG Peg 
mod_ 


owop.prg 
bomajor.prg 
bominor.prg 
sarmajor.prg 
sarminor.prg 
immedsar.prg 
sarday.prg 
sarday.prg 
sarday.prg 
boarding.prg 
immedsar.prg 
Ieee . pkg 
Operacor.prg 
opervsls.prg 
owners.prg 
ownvsl.prg 
DéBincelsprg 
sarday.prg 
sardump.prg 
Sapna oh. DiEg 
Sarminor.prg 
sarsmbt.prg 
vessel.prg 
vsloper.prg 
vslowner.prg 
sarday.prg 
smboatrp.prg 
smboatrp.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
mod_sar.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
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User 


user 
user 


UseT 


user 
user 
user 


user 


flag 
flag 
this 
count 
count 


nauei 


non-i 
Serer 
endin 
summa 
count 


count 
naut1 
nautl 
SiaG iG 
endin 
summa 
previ 
folde 
oplna 


. Description 


variable 


input 


input 
input 


input 


input 
input 
input 


input 


variable 
varlable 


year's sar cases 


ing variable 
ing variable 
variable 


cal position coord. 


mmediate SAR Cases 


ing date 

sate 
Plone vat tapLe 
ing variable 


ing variable 


eereeposltlon coord. 
G@oemoosition coord. 


ing date 
jacacC 
tion variable 


ous year's sar cases 


r number 


me in operator 


op2 
op3 
op4 
op5 
op6 
op? 
ops 
op9y 


opchange 
opfound 
opid 


opr found 
oscavg 
osdate 
ossum 
ostime 
ostimes 
Out 
outarea 


OutpDet 


outpcttm 
outside 


integer 


text 


text 


text 


text 


text 


eee 


tex 


date 


text 
cext 
Paice jer 


EeccL 
real 
date 
Beat 
time 
integer 
GExe 
ice jer 


real 


real 
integer 


Used In 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop .prg 
agaBerd. pr 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
addenda 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
mod_owop.prg 
mod_owop.prg 
mod_owop.prg 
quer_per.prg 
gquer_vsl.prg 
quer_per.prg 
Sartimes.prg 
Sartimes.prg 
Sartimes.prg 
sartimes.prg 
Sartimes wend 
add_ownr.prg 
bomajor.prg 
bominor . pug 
Sarmajor.prg 


sarmlnor.prg. 


bomajor.prg 
bominor.prg 
sarmajor.prg 
Sarminor.prg 
sarsmbt.prg 
sarsmbt.prg 
sarsmbt.prg 
smboatrp.prg 
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Description 


opcourse in operator 
opid in operator 
opfname in operator 
opmi in operator 
opaddr in operator 
opcity in operator 
opstate in operator 
opzip in operator 
optelno in operator 


opdob in operator 


-flag variable 


flag variable 
operator id (system) 


flag variable | 
average on scene Cie 
on scene date 
summation variable 

On SCene seine 
counting variable 
flag variable 
summation variable 


percentage 


Percentage 
summation variable 


ow3 
ow4 
ow5 
ow6 
ow7 
ow8 
ow9 


eae nange 
owfoun 
owhisprn 
owld 
owndone 
own found 
owoptest 
pcik6 
peez030 
pct3040 
pct4050 
pee 506ec 
pct54 
pets4tmp 
BEES - 
petsstmp 
pecoo 
Heteoo tmp 
pes] 
pet57tmp 
perss 
pcet58tmp 
perso 
pct59tmp 
pcts60 


text 


text 


text 


text 


text 


text 


real 
real 
real 
real 
real 
real 
real 
real 


Used In 


add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 


mod_owop. 


prg 


add_brd.prg 


add_sar. 
add 
mod_owop 


r 
Be diore 
-Prg 


add_brd.prg 
add_sar.prg 
add_sbd.prg 


mod_owop. 


prg 


add_brd.prg 
add_sar.prg 


add 


sbd.prg 


mod_owop.prg 


add_brd.prg 
add_sar.prg 


add 
mod 


sbd.prg 
owop. 


Prg 


add_brd.prg 
add_sar.prg 


add 
mod 


sbd.prg 
owop. 


prg 


qadeond. org 
add_sar.prg 


add 
mod 


Sjorola jen ete 
OwWOp. 


prg 


add_brd.prg 
add_sar.prg 
add_sbd.prg 


mod_owop. 


Prg 


add_brd.prg 
add SeeRorG 


add 
mod 
mod_owop 
mod_owo 
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sbd.prg 
owop. 


Prg 


—prg 
-prg 
quer_vsl. 
quer_vsl. 
GUibian Der. 
quer_per. 
Que mmr eae 
brd_main. 
Tew opie 
intelrpt. 
Tie lepine. 
IME trot. 
violfreq. 
violfreq. 
Violrred. 
violfreq. 
Violtreg. 
violtred. 
violfred. 
violfireq. 
wro lied. 
Vo Lened. 
. VIOlEreg. 
Violived. 
Violfredq. 


Description 


ownlname in owners 
ownlid in owners 
ownfname in owners 
ownml in owners 
ownaddr in owners 
owncity in owners 
ownstate in owners 
ownzlip in owners 
owntelno in owners 
owndob in owners 


flag variable 
flag variable 
User Input 

owner eee 
flag variable 
flag variable 
flag variable 
counting variable 
percentage 
percéntage 
Bercemrage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 


pct6070 
pct60tmp 
pct6l 
pct6ltmp 
BetoZ 
pcet6ztmp 
Petes 
pcet63tmp 
pct64 
pcté64tmp 
pct65 
pct65tmp 
pct66 
pct6é6tmp 
Peto 
pct67tmp 
pero 
pcté6stmp 
pct69 
pct69tmp 
pct7/0 
pct7080 


pcet7O0tmp 
Bee7 


pet / ltnp 
pet72 
pet/72tmp 
Betis 
peur ccmp 
pct74 
pct74tmp 
eEy 


p 
Hewson? 
pct76tmp 
pec? 
pet?77tmp 
Petes 
pct78tmp 
Pees 
pecy J Emp 
pctsdsl 
Beesozo 
pct8283 
pct8485 
pesos? 
pct8889 
persulo 
PeesoL 00 
pct<00 
PCeaZ20 
Dercwod 
pct<65 
peuw 0 
pec? 5 
pct<8s0 
pct<85 
pee 70 
pct<95 
Peee0o 
pct>100 
peeanr 
pctaug 


real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real - 
real 
real 
real 
real 
real 
real 
real 
real 


Used In 


Inte epics 
violfreq. 
Violived: 
Vio Fired. 
Violfreq. 
Viol freq. 
VALO de] « 
violfreq. 
Vi otlnned. 
violfreq. 
violfreq. 
violfreq. 
violfreq. 
violfreq. 
VOW Ene de 
violfreqd. 
Viotr hed, 
VAOlE Gece 
ViOLEbece 
violtireq. 
Varo unre. 
Intelrpc: 
violfreq. 
violfreq.p 
cmerpt.prg 
Va Oleihe a 
VilOli bed. 
violfireq. 
BLO Lhe). 
Velo Tred. 
violfreq. 
Vor bear 
Vile ee cle 
Vioifreqd. 
violfreq. 


prg 


cmerpt.prg 


VOR ed 
VilLOur red. 
violfreq. 
Vie Ged, 
violfreq. 
Vi oO beneg. 
violfreq. 


prg 
Prg 
Prg 
Prg 
prg 
Brg 
Prg 


cmerpt.prg 


intelrpt. 


prg 


GMer peered 
GMerepr.pEd 
CMewe copa 


cmer Ecued 
-prg 


agua Ssh) gio) 


intelrpt.p 
pH Gne IL Gener 
Inver Le. 
inel hp te. 
intelrpt. 
Ite Lape. 
intelrpt. 
intedrpt . 
Tee Lia 
ince lipt. 
invelrp &. 
intelEpt. 
intelrpt. 


rg 
Pg 
Prg 
Prg 
prg 
prg 
prg 
Prg 
Brg 
Prg 
prg 
prg 
Pig 


sarday.prg 
sarday.prg 


174 


Description 


percentage 
percentage 
percentage 
pémeentage 
pemcentage 
percentage 
PeLechiagdc 
percentage 
Bercentrage 
percentage 
peleemcage 
percemeange 
percentage 
perceneage 
percentage 
CNIS (ue slols 
percentage 
percencace 
percentage 
perceneage 
pereenctage 
percentage 
perceneace 
percencadge 
percenuace 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percenuage 
penecnrage 
percentage 
percentage 
DeEGencage 
percentage 
percentage 
percentage 
percemvace 
pereceneadec 
percentage 
percentage 
percencage 
percentage 
percentage 
perceneage 
percentage 
Pevceneace 
percentage 
percencage 
péercencaae 
percenhitace 
percentage 
pereciivege 
percentage 
percentace 
percentare 
percentage 
percentage 
perceneage 
percentage 


add_sbd.prg 
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Name Type Used In Description 
pctchang real sarday.prg percentage 
pctcme real cmerpt.prg percentage 
petdayb real daynight.prg percentage 
petdays real daynight.prg percentage 
petdec real sarday.prg percentage 
petreb real sarday.prg percentage 
Beerri real sarday.prg percentage 
petgeg0 near cmerpt.prg eheenkage 
pctimmed real immedsar.prg % immediate SAR cases 
petyan real sarday.prg percentage 
pete ul real sarday.prg percentage 
petjun real sarday.prg percentage 
cenlt 70 real cmerpt.prg percentage 
pctmar real sarday.prg percentage 
pctmay real sarday.prg percentage 
petmon real sarday.prg percentage 
petniteb real daynight.prg percentage 
petnites real daynight.prg percentage | 
pcetnotim real immedsar.prg %4 non-immediate SAR Cases 
pctnov real sarday.prg percentage 
petoct real sarday.prg percentage 
Becsat real sarday.prg percentage 
petsep real sarday.prg percentage 
pctsun real sarday.prg eucentace 
' pettempl real epicdump.prg 4 @piccode / total vsls 
pettemp2 real epicdump.prg % epiccode / total vsls 
petthu ea sarday.prg percentage 
pcettue real sarday.prg percentage 
pctwed real sarday.prgq- PeRcentage 
perintpr Eex dueraser.prg user Inpue 
persprn ese que ea tg USer Ins). 
pg integer add_prd.prg counting variable 
add_sar.prg 
add_sbd.prg 
; mod_brd.prg | 
pgcount integer  adeied. pr cg counting variable 
add_sar.prg 
add_sbd.prg 
pickl pene e cei sarsys.prg menu variable 
pickl0 integer qrymain.prg menu variable 
pickll Integer utlmain.prg menu variable 
pack2Z integer inpmain.prg menu variable 
pick3 integer modmain.prg menu variable 
pick4 Integer rptmain.prg menu variable 
pick5 tneeqer liteeicd ome menu variable 
pick? integer sar_main.prg menu variable 
pick8 Bie ce i VS aa nein menu variable 
pce integer prs_main.prg menu variable 
prdesc text Intel oesorg = propdesc in BOATPROP 
proptst text intelrpt.prg = proptype in BOATPROP 
reenter text add_ownr.prg user input 
am_pint.prg 
am_Vint.prg 
mod_sar.prg 
mogasut j.prd 
review text add_brd.prg flag variable 
add_sar.prg 
add_sbd.prg 
| mod_brd.prg 
sunits text add_sar.prg user input 


Used In Description 


sl date add_sar.prg sardate in sar 
add_sbd.prg 

texe mod_sar.prg folderno in sar 
$10 integer mod_sar.prg sarpob in sar 
sii text mod_sar.prgq sarvhin in sar 
$12 real mod_sar.prg sarlat in sar 
$13 rece mod_sar.prg sarlong in sar 
$14 integer mod_sar.prg distort Mates ar 
s15 text mod_sar.prg immedsar in sar 
$16 text mod_sar.prg winddir in sar 
Sly Cerne mod_sar.prg windspd in sar 
$18 text mod_sar.prg visdist in sar 
$19 text mod_sar.prg clouds in sar 
$2 time add_sar.prg sartime in sar 


add_sbd.prg 
text mod_sar.prg 
$20 text mod_sar.prg 


ucn in sar 
ceiling @imesar 


Sau Cexu mod_sar.prg seas in sar 
$22 text mod_sar.prg swells in sar 
$3 real add_sar.prg sarlat in sar 
add_sbd.prg | 
text mod_sar.prg mucn in sar 
s4 real add_sar.prg sarlong in sar 
add_sbd.prg 
date mod_sar.prg sardate in sar 
$5 text add_sar.prg Sarnod in sar 
add_sbd.prg | 
text mod_sar.prg sarday in sar 
$6 text add_sar.prg Sarvhin in sar 
add_sbd.prg 
tame™ mod_sar.prg sartime in sar 
$7 time mod_sar.prg ssunrise in sar 
$8 time mod_sar.prg ssunset. 
s9 text mod_sar.prg sarnod in sar 
sar00 integer sarday.prg counting variable 
sarQ1l integer sarday.prg counting variable 
sarQ2 Imeeder sarday.prg counting variable 
sar03 integer sarday.prg counting variable 
sar04 integer sarday.prg counting variable 
sarQ5 Tee ge th sarday.prg counting variable 
sarQ6 iieeqer sarday.prg countimguvaniable 
sarQ7 Mee eek sarday.prg counting variable 
sar08 integer sarday.prg counting variable 
sar09 integer sarday.prg counting variable 
sarl10 integer sarday.prg counting variable 
Ssarll Ibe ge i sarday.prg counting variable 
sari2 ieee te sarday.prg counting variable 
sar8l eed n sarday.prg counting variable 
sar82 integer sarday.prg counting variable 
sar83 integer sarday.prg counting variable 
sar84 integer sarday.prg counting variable 
sar85 ieee hr sarday.prg counting variable 
sar86 THiceget sarday.prg counting variable 
sar87 Ieedek sarday.prg counting variable 
sar88 integer sarday.prg counting variable 
sar89 Ineeger sarday.prg counting variable 
sar90 Ieee sarday.prg counting variable 
sar91 Pacer sarday.prg counting variable 
sar92 integer sarday.prg counting variable 
sarg3 Tieeger sarday.prg counting variable 
sar94 BES OiNg sarday.prg counting variable 
sar95 integer sarday.prg counting variable 
sar96 integer sarday.prg counting variable 
sar97 eneeaiens sarday.prg counting variable 
sar98 integer sarday.prg counting variable 
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saturday 
schavg 

schtimes 
searchok 
sepdatel 
sepdatez2 
sepsar 

southtst 


status 
strtdate 


motrtltr 


integer 
text 


integer 
nea 
ing@eger 
CeExe 
date 
daue 
Imeeger 
real 


text 
date 


text 


text 
date 
Elme 
date 
cime 
date 
time 
date 
text 
time 
date 
time 
date 
time 
date 
Pexe 
integer 
integer 
in Geger 
integer 
integer 
ingeger 
LHICeger 


Used In 
sarday.prg 
quer_per.prg 
quer_vsl.prg 
sarday.prg 
sartimes.prg 
Sareimes.prg 
quer_per.prg 
sarday.prg 
sarday.prg 
sarday.prg 
bomajor.prg 
bominor.prg 
sarmajor.prg 
sarminor.prg 
quer_per.prg 
boarding.prg 
bomajor.prg 
Domlnor.prg 
cmerpt.prg 
daynight.prg 
epicdump.prg 
immedsar.prg 
IMEecbetaprg 
Sleracor. Org 
owners.prg 
Ber mace..pPrg 
sardump.prg 
sarmajor.prg 
Sarminor.prg 
sarsmbt.prg 
sartimes.prg 
smboatrp.prg 
violfreq.prg 
SVeraccr.prg 
opervsl.prg 
opervsls.prg 
owners.prg 
ownvsl.prg 
Demwineel.prg 
vessel.prg 
vsloper.prg 
vslowner.prg 
mod_sut.prg 
mod_sut.prg 
mod_sut.prg 
mod_sut.prg 
mod_sut.prg 
mod_sut.prg 
mod_sut.prg 
mod_sut.prg 
mod_sut.prg 
mod_sut.prg 
mod_sut.prg 
mod_sut.prg 
mod_sut.prg 
Mogdasun.prg 
mod_sut.prg 
mod_sut.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
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Description 


counting variable 
user Input 


counting variable 
average search time 
counting variable 
flag variable 
starting date 

ending date 


summation variable 
nautical position coord. 


flag variable 
starting date 


starting letter 


foldno in sarunits 
alngdate in sarunits 
towtime in sarunits 
towdate in sarunits 
dvmoored in sarunits 
dvmdate in sarunits 
sutmoor in sarunits 
sutdate in sarunits 
UNLE Isarunlis 
uwtlme in sarunits 
uwdate | | 

Ose Caen ssarunits 
etadate In sarunits 
ostime in sarunits 
osdate in sarunits 
alngtime in sarunits 
summation variable 
summation variable 
summation variable 
summation variable 
summation variable 
summation variable 
summation variable 


sumprop 
sumtype 
sumuse 

Sun Gey 

sutdate 
sutmoor 
temppct 


test 
thursday 
timeadd 
timehour 
opaua 
totbrds 


EOuemues 
totimmed 
totsars 


totsum 
EOurmmes 
totviols 


towavg 
towsum 
tCowtimes 
tuesday 
tvl 

EO 

tvZ 

ty 0 

Ewes 

ere SO) 

tv4 
eye 
ypchoic 
typdescl 
typetest 


uns69s 
uns70s 
uns71s 
uns72s 
uns73s 
uns7/74s 
uns75s 
uns76s 
uns77s 
uns78s 
uns79s 
unstotl 


integer 
LIES Ger, 
Vee oer 
Lhikecger 
Liteger 
INGegel 
Pee ge ks 
THEece kr 
ay piri ref —g 
Lneeger 
integer 
date 

time 

real 


real 
integer 
real 
real 
Bead 
Piece ger 


integer 
ies ST 
pace ger 


real 
liteger 
integer 


real 
mete 
iMeecger 
integer 
InGeger 
ERs Cress 
Tee Ger 
intege & 
InNGeger 
Integer 
Lieegel 
Pabece 
bese 
LExt 
Pesce 


integer - 


TM eGge 
LVESGer 
integer 


‘integer 


Tie slant 
TAGE ger, 
LMeeger, 
Tike det. 
nig ele 
Integer 
integer 


Used In 
sarday.prg 
sarday.prg 
sarday.prg 
SNe plea era to macy 
ane ato eeatoiey 
HQ He LjjoNe «pgs 
ager bene 6 hake 
ah gueiadLg ene sjolerey 
Tiber ae lemme oC 
intelrpt.prg 
sarday.prg 
sartimes.prg 
sartimes.prg 
bomajor.prg 
bomunor peg 
sarmajor.prg 
sarminor.prg 
sartimes.prg 
sarday.prg 
sartimes.prg 
Sar ElmMeswprd 
sartimes.prg 
cmerpt.prg 
daynight.prg 
Inte lRorwnd 
smboatrp.prg 
epicdump.prg 
immedsar.prg 
daynight.prg 
immedsar.prg 
sarday.prg 
sarmajor amd 
Sarsmbt.prg 
Sartimes.prg 
Sartimes.prg 
ee): Cee. ac 
intelrpt.prg 
Saigo rmelsi. lac 
SABELMES. pig 
Sarermes-prg 
sarday.prg 
Lnice | apiee pr g 
intelrpt.prg 
Lhe Ligon. Sigg 
Ae tener. rac] 
Ii Seater 
intelmeteprg 
IG Certain 
Iiit en pirmenG 
vessel.prg 
sh oimabicjoie jevare| 
Invel rot sprg 
Vessel jpud 
violfreq.prg 
ViOMEredmerd 
Vigbined- arg 
violfreq.prg 
violfreg.prg 
violfrég.prg 
Vici bemanr? 
ViO nec otact 
violfreq.prg 
violfreq.prg 
Violirea. pig 
violfreq.prg 
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Description 


summation variable 
summation variable 
summation variable 


counting 
counting 
counting 
COUnE Tag 
counting 
counting 
COUn eerie 
countin 

sar unl 


comparison variable 


ecuneing 


time computation variable 
time computation variable 
otal case time 


average 
counting 


counting 
eeunting 


variable 
variable 
wieventele) l= 
variable 
Viale abate 
variable 
variable 
variable 


Lt moored date 
sar unit moored time 
percentage 


variable 


varlable 


variable 
variable 


total sars 


summation variable 


counting 


summation variable 


average towing time 
summation variable 


counting 
COouRmEaug 


summation 
summation 
summation variabl 
summation 
summation 
summation 
summation 
summation 
USEY “yee cl 
vtypedes in 
vtype in BOATTYPE 


counting 
counting 
fefeiChoue sb ote 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 


summation variable 


variable 


variable 
varlable 


chol 


variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 


variable 
variable 


variable 
variable 
variable 
variable 
variable 


ce 
BOATTYPE 


unstotz2 
unstot3 
unstot4 
unstots5 
unstot6 
unstot?7 
unstotal 
usechoic 
usedescl 
username 
userpass 
usetest 


uwdate 
uwtime 
vl 


v10 


vil 


v12 


v1i3 


v14 


v15 


v15 


vl7 


v18 


v19 


v2 


v20 


Wael. 


V22 


v23 


integer 
imee ger 
ineeger 
iGo jew 
Lneegar 
Eee r 
integer 
Ee 
Lex: 
cone 
COKE 
Cex 


date 
time 
text 


text 
text 
Cenc 
CexXe 
text 
text 
text 
text 
Eexe 
CHE 
text 
text 
temt 
Lome 


text 


Vigil £req.prg 
Vigurreq.prg 
violfreq.prg 
violfreq.prg 
Vagiesne qd. prog 
ViGmened.prg 
violfreq.prg 
vessel.prg 


ingetEpt.prg 
vessel.prg 
sartimes .prg 
sartimes.prg 
add_brd 
add_sar.prg 
add_sbd.prg 
agamara. prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
addibrd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
addmsbd.prgd 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 


bi didtitrtitlt itt itt titi t tot tot tot 
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Description 
summation variable 
summation variable 
summation variable 
summation variable 
summation variable 
summation variable 
total unsafe conditions 
user vessel use choice 
= vusedesc in BOATUSE 
user name input 
user password 


-= vuse in BOATUSE 


underway date 


underway time 
VSiinowini vessel 


vslhp in vessel 
vsluse in vessel 


vsltype in vessel 


‘vslprop in vessel 


vslhull in vessel 
vsleng in vessel 
vslfuel in vessel © 
vslconst in vessel 
cmedecal in vessel 
cmeyuear in vessel 
vslname in vessel 
vsloffno in vessel 
homeport in vessel 
vslcall in vessel 


vslvalue in vessel 


v26 
v27 
v28 
ViZg 
v3 
v30 
Vor 
v32 
v4 
v5 
v6 
v7 
v8 
v9 
vadult 


valc 


valgdate 


valgtime 


validusr 


vbadhin 


eset 
ese 
ext 
Best 
text 
integer 
integer 
integer 
integer 
text 
date 


time 


text 
text 


Used In 


add_brd. 
add_ sar. 
add_sbd. 
addiera. 
add_sar. 
add_sbd. 
add_brd. 
add_ sar. 
add_sbd. 
add _ brd. 
add_sar. 
add_sbd. 
add _brd. 
add_sar. 
add_sbd. 
add_brd. 
add_sar. 


add_sbd. 
add_brd. 
add_sar. 
add_sbd. 
add_brd. 
add_sar. 
add_sbd. 
add_brd. 
add_sar. 
add_sbd. 
add_brd. 
add_sar. 
add_sbd. 
add_brd. 
sar. 
add_sbd. 
add_brd. 
sar. 
sbd. 
add_brd. 
sar. 
add_sbd. 
add_brd. 
add_ sar. 
add_sbd. 
addiibrd. 
add_sbd. 
mod_brd. 
quer_per.prg 
quer_vsl.prg 


add 


add 
add 


add 


add_sar 
add 


mod 


add_sut 


mod_sut. 
Stakcupe 
mod_vhin.prg 


180 


sbd. 
add_sut. 
sut. 
add_ sar. 
add_sbd. 


prg 


prg 
ptg 
prg 
prg 
ptg 
prg 
prg 
pig 
ptg 


Description 


vslsuper in vessel 
vslmasts in vessel 
sailno in vessel 
hlcolor in vessel 
trcolor in vessel 
slcolor in vessel 
vslhin in vessel 
cbcolor in vessel 
dkcolor in vessel 
vslmarks in vessel 
vslmake in vessel 
vslmodel in vessel 
vslyear in vessel 
vsltons in vessel 
vsllenft in vessel 
vsllenin in vessel 
adultpfd in boarding 
operator alcohol conditio 
date alongside 


time alongside 


flag variable 
vslhin in vessel 


vbodate 


vboday 
vbodist 


vbolat 
vbolong 


vboname 


vbono 


vboopfac 


vborate 


vboreml 


vborem2 


vborem3 


vbosrise 
vbosset 


vbotime 


vbounit 


veall 


text 
text 


real 
real 


text 
text 


text 


cane 
text 
Per 
text 


time 
time 


time 


Text 


text 


Used In 
add isrdeprg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
add_brd.prg 
add_sbd.prg 
NOGweud. erg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
moa sonrdeprg 
quer_per.prg 
quenavsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer _vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
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Description 


boarding date 


boday in boarding 
bodist in boarding 


latitude position 
longitude position 


boname in boarding 
boarding report number 


boopfac in boarding 


borate in boarding 
boreml in boarding 
borem2 in boarding 
borem3 in boarding 


bsunrise in boarding 
bsunset in boarding 


boarding time 


bounit in boarding 


vessel call sign 


VeEDCOLOr 
vceliling 
vchild 


vclouds 


vemeyear 


vceonstr 


vdate 


vdateos 
vdecal 


vdistoff 


vdkcolor 
vdob 
vdvmoord 


vdvmoort 


vepic 


vetadate 


viname 


vfoldno 


vhicolor 


integer 


text 
text 


text 


date 
date 


text 


integer 


text 
date 
date 


time 


text 


date 


text 


text 


text 


Used In 
add_brd. pre 
add_sar.prg 
add_sbd.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
add_brd.prg 
add_sbd.prg 
moGdwor azar 
add_sar.prg 
add_sbd.prg 
addlbrd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 


mod_vhin.prg 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_sut.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
quer_vsl.prg 
add_Dbrd.prg 
add_sar.prg 
add_sbd.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_sut.prg 
add_sar.prg 
add_sbd.prg 
adGmst tap 
mod_sut.prg 
am_vint.prg 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_sut.prg 
am_pint.prg 


quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_sar.prg 
mod_sut.prg 
quer_per.prg 
quer_vsl.prg 
adclameied. ore 
add_sar.prg 
add_sbd.prg 
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Description 


cabin comer 
ceiling in sar 
childpfd in baording 


clouds in sar 


cme decal year 


coded vessel construction 


intelligence date 


on scene date 
cme decal? 


distance offshore 


deck color 
date of birth 
date distressed vessel mo 


time distressed vessel mo 


epiccode in vslintel 


on scene eta date 


intfname in perintel 


sar folder number 


hull color 


vintdate 


vintdob 
vintml 

meer tl 
vVintreml 


vintrem2 
vintrem3 


vio0l54s 
viol55s 
violsS6és 
viol57s 
yv1io1l58s 
v1io1l59s 
viol60s 
viol6ls 
yv10162s 
viol63s 
v1io0l64s 
v1iol65s 
viol66s 
viol67s 
v1iol68s 
viname 


vitndesc 
vmarks 


vmasts 
vmaxop 


vmaxoper 
vmaxown 


vmi 


vmucn 


Vno 


date 


date 
text 
text 
text 


text 
text 


dee cet 
ice ges 
inEeger 
IL Qicilol hq 
InEeger 
Pee ger 
Make ger 
LEGS f 
Ge Geis 
integer 
Tree ger 
Pee coir 
LMweger 
Inmege r 
Liege k 
Cexe 


text 
text 


text 
integer 


integer 
integer 


text 
text 


text 


Used In 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
quemEvsiorg 
am_pint.prg 
am_pint.prg 
amv Ent. pYg 
quer_per.prg 
queuEvst prg 
am_pint.prg 
am_pint.prg 
quer_vsl.prg 
am_pint.prg 
am_vint.prg 
am_pint.prg 
am_vint.prg 
ane plac. prg 
ame Vine. prg 
Vaoleneg.prg 
Vier ee cpt 
Viglereg.prg 
ViGwERged-prg 
Vigitred.prg 
Viglipeg.prg 
ViGieseq.prg 
VigEeeq.prg 
Vidieaeq.prg 
Vigweneq.prg 
violtreq.prg 
VECtEved .prg 
violfreq.prg 
violfreq.prg 
violtreg.prg 
aMmbant <prg 
quer_per.prg 
quemaysiiprg 
intelrpt.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_sbd.prg 
adeeb rdorg 
add_sar.prg 
add_sbd.prg 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
quer _vsi.prg 
intelrpt.prg 
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Description 


vessel homeport 


immediate sar? 
pintdate in perintel 


intdob in perintel 
Intima: ER pee tes 
user input | 
pintremi in perintel 
pintrem2 in perintel 


pintrem3 in perintel 


counting 
counting 
coun tag 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
intlname 


= violdesc in VIOLS. 
vessel unusual markings 


number of vessel masts 


variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 


in perintel 


comparison variable 


comparison variable 
comparison variable 


middle initial 


multi-unit case number 


= violno 


Te vitOLS 


vobcount 
vobsbody 
vobscity 
vobslat 

vobslong 
vobstate 


voffno 


vopaddr 


vopcity 


voperse 


vopdob 


vopfname 


vopid 


voplname 


text 


real 


real 


text 


text 


text 


text 


text 


date 


iste reyes 


integer 


text 


add_sbd.prg 
mod_vhin.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 


quer_per.prg © 


quer_vsl.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_per.prg 
quer_vsl.prg 
add_bprd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop .prg 
Guero perarng 
quer_vsl.prg 
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Description 


obscount 


in boarding 


obsbody in boarding 


obscity in boarding 


latitude position 


longitude position 


obsstate 


in boarding 


vessel official numbers 


Ope rater 


operator 


operator 


operator 


Ope rauir 


operator 


operator 


street address 


city address 


course code 


date of birth 


first name 


id (system) 


last name 


vopst 


voptelno 


vopzip 


voseta 


vostatus 


vostime 


vowaddr 


vowcity 


vowdob 


vowfname 


vowid 
vowLname 


text 


text 


text 


time 


text 


time 


text 


text 


date 


text 


integer 
text 


Used In 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_sut.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_sut.prg 
add_brd.prg 
add_ownr.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_vsl.prg 
add_prd.prg 
add_ownr.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_vsl.pr 
aoe oes cae 
add_ownr.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_vsl.pr 
scene amen 
add_ownr.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_vsl.prg 
quer_per.pr 
add_prd.prg 


mod_owop.prg 
quer_vsl.prg 
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Description 


operator middle initial 


operator state address 


operator telephone number 


operator Zip code 


on scene eta time 


owstatus in boarding 


on scene time 


owner 


owner 


owner 


owner 


owner 
owner 


street address 


city address 


date of birth 


first name 


record id number 
last name 


vownid 


vowst 


vowtelno 


vowzip 


vpct2030 
vpct3040 
vpct4050 
vpct5060 
vpcts6070 
eqorene 118 
vpct7080 
VG bu 
vpct76 
vpct30 
vpcts090 
Vipebwez 
vpct34 
vpct36 
vpct33 
VOCEao 
VpecIolg 
vpct<00 
VoGE<2 0 
vpct<60 
vpct<65 
vpct<70 
VOGE<75 
vpct<380 
vpct<85 
VpGeqJe 
vpct<95 
vpct>00 
vpct>100 
vperaddr 
VDererty 
vperdob 
vperml 


text 


text 


text 


text 


add_brd.prg 
add_ownr.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_vsl.prg 
aAddeona. org 
add_brd.prg 
add_ownr.prg 
add_sar.prg 
add_sbd.prg 
add_sbd.prg 
mod_owop.prg 
mod_owop.prg 
add_brd.prg 
add_ownr.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
uer_vsl.pr 
age Career 
add_ownr.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
quer_vsl.prg 
add_brd.prg 
add_ownr.prg 
add_sar.prg 
add_sbd.prg 
mod_owop.prg 
qGueheys ls. pag 
inteIrpt.prg 
Iinee Pept. pad 
Ince lope. pad 
Iycer rpc. pad 
intelrpt.prg 
cmerpt.prg 
IMEC np tor 
cmerpt .prg 
Chen pin DG 
Fee ea ee 
IWS Lao eer 
cmerpt.prg 
CHEEDE. DEG 
CMeispier Onc 
CMe ypu. prg 
cmerpt.prg 
LHECELD cee g 
Lriberap tre. o 
LUECinp Lng 
intelrpt.prg 
bE pea ILicrers 5 ol ate: 
Lie ence cf 
rh ghel= Ijciojie, joy ate 
IMPEDE 
lijeereapienp ad 
intelrpt.prg 
Ime eneiE won 
Ince lap. pag 
intelrpt.prg 
quer _per.prg 
Qusriper.prg 
Queraper.org 
que ap cianp ac 


186 


Description 


owner middle initial 


owner id (system) 


owner state address 


owner telephone number 


owner zip code 


percentage 
Perceneace 
percentage 


‘percentage 


percentage 
Per Cenrage: « 
Percentage 
percentage 
perceneage 
percentage 
pencentLage 
percentage 
PeLcentage 
percentage 
Pemcentace 
percentage 
Percentage 
PeEmecenuacge 
percentage 
percentage 
PeLrcentage 
percentage 
percenrage 
percentage 
perecneage 
Rerceneage 
percentage 
percentage 
pee 
street address 
city address 
date of birth 
middle initial 


vsailno 


vsardate 
vsarday 


vsarhin 
vsarlat 


vsarlong 


vsarnod 


vsarpob 
vsartime 


vseas 
vslcolor 
vslfound 
vsiprn 


vstolen 


vsumoord 


cexc 


text 
real 


real 


text 


integer 


time 


text 
text 
text 
text 


text 


date 


Used In 


quer_per.prg 
gQuer_per.prg 
quer_per.prg 
quer_per.prg 
quer_per.prg 
quer_per.prg 
gquer_vsl.prg 
quer_per.prg 
quer_vsl.prg 
quer_per.prg 
gquer_vsl.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
quer_vsl.prg 
mod_sar.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
quer _vsl.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
gu@r_vsli.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
gquer_vsl.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
add_brd.prg 
addlsar org 
add_sbd.prg 
mod_vhin.prg 


am_vint.prg 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_sut.prg 
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Description 


state address 

telephone number 

zip code 

first name 

lastenane ; 
personnel intelligence re 


personnel intelligence re 
personnel intelligence re 
sail number 


sar date 
sar day of the week 


Sabviiinein Sar. 
latitude position 


longitude position 


nature of distress 


personnel on board 
sar time 


seas in sar 
wal becokor 
flag variable 
user lnpee 


stolen in vslintel 


date sar unit moored 


vsumoort 


vsunrise 


vsunset 


vsuper 


vswells 


VEG. 
Vioclo 
VEOELL 
VEGurZ 
Vtorlrs 
ViEors 
vtot3 
vtot4 
VEGES 
VEOuG 
VEOL? 
vtots 
vtot9y 
vtotal 
vtowdate 


vtowtime 


VERGO Loh 


vucn 


“nee 


vuns69 


vuns70 


vuns71 


text | 
text 


integer 
integer 
inceger. 
ingeger 
itive ger 
Inveger 
Lieder 
IncCger 
integer 
needs tr 
LHeGaer 
Integer 
Liveger 
Integer 
date 


time 


text 


text 


CexC 


text 


text 


text 


Used In 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_sut.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
VCH ie Colac] 
Vio Taned org 
violfreq.prg 
violfreq.prg 
ViGLEReq: pag 
VIGEEEeq. Dlg 
Vidi red. pag 
violfreq.prg 
violfreq.prg 
Vigimened. ome 
VIOPETreEQ =. preg 
violfreq.prg 
VIOEEreq ond 
violfreq.prg 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_sut.prg 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_sut.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_sut.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_pbrd.prg 
add_sbd.prg 
MNOG@mer cd. jG 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
nCdsera.okKg 
quer_per.prg 
quer_vsl.prg 
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Description 


time sar unit moored 


bsunrise in boarding 
bsunset in boarding 
vessel superstructure 
swells in sar 


summation variable 
summation variable 
summation variable 
summation variable 
summation variable 
summation variable 
summation variable 
summation variable 
summation variable 
summation variable 
summation variable 
summation variable 
summation variable 
total violationss 
date started towing 


time started towing 


trim color 


unit case number 


sar unit name 


unsafe condition 69 
unsafe condition 70 


unsafe condition 71 


vuns72 


Mmunsi?/ 3 


vuns74 


vuns75 


vuns76 


vuns77 


vuns78 


vuns79 


vuwdate 
vuwtime 
vvalue 


vv1o0l154 


mv2o155 


text 


text 


text 


text 


text 


text 


text 


date 


time 


dollar 


text 


téxt 


Used In 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer _vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
gquer_per.prg 
gquer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
agdlispd). preg 
modumra. pkg 
quer_per.prg 
gquer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer Bol .org 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
gquer_vsl.prg 
add brd.prg 
add_sbd.prg 
medubra.prg 
quer_per.prg 
guer_vsl.prg 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_sut.prg 
add_sar.prg 
add_sbd.prg 
add_sut.prg 
mod_sut.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
gquer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
gquerivsl.prg 
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unsafe 


unsafe 


unsafe 


unsafe 


unsafe 


unsafe 


unsafe 


unsafe 


Description 


condition 72 


condition 73 


condition 74 


condition 75 


condition 76 


condition 77 


condition 78 


condition 79 


underway date 


underway time 


vessel value 


Violation code 54 


violation code 55 


vviol56 


VV10157 


vv1iol58 


vv1io0l59 


vviol60 


vviol6él 


vviol62 


vvio0l63 


vv10164 


vviol65 


vvio0l66 


vviol67 


vviol68 


text 


Be ic 


text 


Cext 


Text 


Cec 


text 


text 


text 


text 


text 


text 


Used In 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
moOgsordn ong 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
NeGmerd. ond 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
queen mot 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
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Description 


Violation code 56 


violation 
violation 
violation 
violation 
violation 
violation 
eae 
violation 
violation 
violation 
Vangalen canta 


violation 


code 


code 


code 


code 


code 


code 


code 


code 


code 


code 


code 


code 


7 


58 


Do 


60 


61 


62 


oe 


64 


65 


66 


67 


68 


vvisdist 
vvreml 
vvrem2 © 
vvrem3 
vvsleng 
vvslft 


vvslfuel 


vvslhin 


vvsihp 


vvslhull 


vvslin 


vvsimake 


vvsimod 


vvs ilname 


vvsino 


integer 
Cee 
text 
er 
text 
integer 


text 


text 


text 


text 


integer. 


text 


text 


text 


text 


Used In 
add_sar.prg 
add_sbd.prg 
MG@amaak.prg 
quer_per.prg 
quer_vsl.prg 
quer_per.prg 
quer_vsl.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_vhin.prg 
addabnd-prg 
add_sar.prg 
add_sbd.prg 
mod_vhin.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
modevhin.prg 
add_brd.prg 
add_ownr.prg 
add_sar.prg 
add_sbd.prg 
mod_brd.prg 
mod_vhin.prg 
quer_per.prg 
quer_vsl.prg 
adgaisrd.pirg 
add_sar.prg 
add_sbd.prg 
NOGEUnan. org 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_vhin.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_vhin.prg 
add Jbrd.prg 
add_sar.prg 
add_sbd.prg 
mod_vhin.prg 
quer_per.prg 
quer_vsl.prg 
ad haporg 
add_sar.prg 
add_sbd.prg 
mod_vhin.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
am_vint.prg 
mod_vhin.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod Vhin.org 
quer_per.prg 
quer_vsl.prg 
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Description 


visdist in sar 


vessel intelligence remar 
vessel intelligence remar 
vessel intelligence remar 
coded vessel engine compa 
vessel length (feet) 


coded fuel compartment 


vslhin in vessel 


vessel horsepower 


coded vessel hull materia 


vessel length (inches) 


vessel make 


vslmodel in vessel 


vessel name 


vessel number 


vvslprop 


vvslton 


vvsltype 


vvsluse 


vvslyear 


vweapons 


vwinddir 
vwindspd 


wedsda 
westts 


year 
VRboo. 
yrl98la 
yr1982 
yr1982a 
yr1983 
yr1983a 
yr1984 
yr1984a 
Yrnoos 
yr1985a 
yr1986 
yr1986a 
Vries, 
yr1987a 
yr1988 
yr1988a 
yrige3 
yr1989a 
Vrisoe 
yr1990a 
VYroon 
yr199la 
VielaZ 


integer 


text 


integer 


text 


text 


text 


integer 


text 
text 


integer 
real 


integer 
date 
date 
date 
date 
date 
date 
date 
date 
date 
date 
date 


Used In 
add_brd.prg 
add_sbd.prg 
mod_brd.prg 
quer_per.prg 
quer_vsl.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_vhin.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_vhin.prg 
add_sar.prg 
add_sbd.prg 
add_brd.prg 
mod_vhin.prg 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
NOG Vinee 
add_brd.prg 
add_sar.prg 
add_sbd.prg 
mod_vhin.prg 
add_prd.prg 
add_sbd.prg 
modlipnad.ong 
quer_per.prg 
quer_vsl.prg 
add_sar.prg 
add_sbd.prg 
mod_sar.prg 
add_sar.prg 
add_sbd.prg 


Piidde tt tlerd t tot t bet 


mod_sar.prg ~ 


sarday.prg 
bomajor.prg 
bominor.prg 
sarmajor.prg 
sarminor.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 


eZ 


Description 


personnel on board 


coded vessel propulsion 


vsltons in vessel 


coded vessel type 


coded vessel use 


vessel year 


weapons in boarding 


Wind@dir in sar 
Windspd in sar 


counting variable 
nautical position coord. 


saryear 

Stam imeqmed ce 
ending date 
starting date 
ending date 
starting date 
ending date 
starting date 
ending date 
starting date 
ending date 
starting date 
ending date 
starting date 
ending date 
starting date 


ending date 
poet date 
ending date 


starting date 
ending date 
starting date 
ending date 
starting date 


yr199Za 
rl 993 
yr1993a 
yr1994 
yr1994a 
yr1995 
tal oo5a 
yr1996 
yr1996a 
eo 9/ 
Veog7a 
me g98 
yr1998a 
wae 9 
yr1i999a 
yr2000 
yr2000a 
yr2001 
yr2z00la 
yr2002 
yr2z002a 
yr2003 
yrZ2003a 
yr2004 
yr2004a 
yr2005 
yr2005a 
yr2006 
yr2z006a 
yr2007 
yr2007a 
yr2z008 
yr2008a 
yr2009 
yr2009a 
ve2010 
yr2z010a 
yrz01l 
yr2Olla 
yr2012 
yr2z0l1l2a 
Mie O75 
yr76to79 
yr80to8sl 
yr82to83 
yr84to8s5 
yr86to87 
yr88to89 
yr<1960 
yn< 1965 
mr < 1970 
meal? 5 
yr<1980 
- yr<1985 
yas 1990 
yir< 1995 
yr<Zz000 
yr>2000 
yrtestl 
yrtestz2 


Sake 
date 
date 
date 
date 
date 
date 
date 
date 
date 
integer 
Liege & 
LINGeger 
INSEE 
Ineeger 
INgeger 
integer 
Integer 
In Cegen 
integer 
Lntedger 
LRteGer 
1 Ceger 
Ta teger 
lMGcegqer 
integer 
pnteger 
integer 
integer 


sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg- 
sarday.prg 
sarday.prg 
sarday.prg 
sarday.prg 
cmerpt.prg 
CME . Digg 
CMeERBE . DRG 
cmerpt.prg 
CHE RE. ome 
CMe@rpet. pug 
CNEer. ping 
Liter pier g 
INtedEpiiaer g 
Ibe Pepin 
Litednp tapng 
Intemrp taeng 
Intediep taprg 
liteeep Emp rg 
nie, p iaehg 
Intemeptaerg 
intetrptgerc 
sarday.prg 
sarday.prgq 


iS 


Description 


ending date 
starting date 
ending date 
starting date 
ending date 
Starting date 
ending date 
starting date 
ending date 
starting date 
ending date 
Stameong cate 
ending date 
starting date 
ending date 
starting date 
ending date 
StarGmd date 
ending date 
Starting date 
ending date 
starting date 
ending date 


Stabtang date 
ending date 
SEartine date 
endingpaate 
Starting date 
ending Gaike 
starting date 


ending date 
starting date 
ending date 
Stamrang date 
ending date 
Starting date 
ending date 
Sear ting cate 
endang date 
Starting date 


ending date 


counting 
counting 
COURT tag 
counting 
counting 
counting 
counting 
counting 
counting 
COUNnELTAG 
counting 
counting 
counting 
counting 
counting 
counting 
countin 


variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 


leap year test 
leap year test 


Used In 


add_brd.prg 


Program Variables Sorted by Where Used 


mropers 
mrownrs 


text 
text 


- text 


date 


IneEegel 
NM ieeralS)s 


text 


text 
text 
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Description 


bodate in boarding 
botime in boarding 
obslat in boarding 
bolong in boarding 
lag variable _ 
user input variable 
user input 
flag variable 
flag variable 
flag variable 
flag variable 
flag variable 
user input 
user inpu 
oplname in operator 
opcourse lin operator 
Opid in@eperator 
opfname in operator 
opml in operator 
opaddr in operator 
Opcity in operator 
opstate in operator 
opzip in operator 
optelno in operator 
opdob in operator 
ownlname in owners 
ownid in owners. 
ownfname 1n owners 
ownml in owners 
ownaddr in owners 
ow nS ey in owners 
ownstate in owners 
owneee in owners 
owntelno in owners 
owndob in owners 
counting variable 
counting variable 
flag variable 
vslno in vessel 
vslhp in vessel 
VS1USememyeSSe. 
vsltype in vessel 
Vslpropman vessel 
vslhull in vessel 
VSIeigmiamvesse 
vslfuel in vessel 
vslconst in vessel 
cmedecal in vessel 
cmeyuear in vessel 
vslname in vessel 
vsloffno in vessel 
homepougeim vessel 
vsicall in vessel 
vslvalue in vessel 
vslsuper in vessel 
vsimasts in vessel 
sailno in vessel 
hicolen i» vesse. 
Encolon Mamvessen 
SlcOlOn ime Vessel 
vslhin in vessel 
cbcolor in vessel 
dkcolor in vessel 
vslmarks in vessel 
vslmake in vessel 


Used In 


add_brd.prg 


vborem3 
vbosrise 
vbosset 
vbotime 
vbounlt 
veall 
Vepcoloer 
Veuild 
vemeyear 
veonstr 
vdecal 
vdkcolor 
walcolor 
vhome 
vmarks 
vmasts 
vmaxop 
vmaxown 
vobcount 
vobsbody 
vobscity 
vobslat 
vobslong 
vobstate 
voffno 
vopaddr 
vopcity 
vopcrse 
vopdob 
vopfname 
Vop1¢. 
voplname 
vopmi 
vopst 
voptelno 
vopz1 
ones 
vowaddr 
vowcl1ty 
vowdob 
vowfname 
vowlname 
vowmi 
vownid 


epee ets 
integer 
eect 
integer 
date 
text 
text 
text 
text 
text 
text 
text 
text 
text 
time 
time 
time 
text 
text 
text 
integer 
text 
text 
text 
text 
text 
text 
text 
Cenc 
Integer 
integer 
text 
text 
text 
real 
real 
text 
text 
text 
text 
text 
date 
eect 
integer 
text 
text 
text 
text 
text 
text 
text 
text 
date 
text 
text 
text 
text 
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Description 
vslmodel in vessel 
vslyear in vessel 
vsltons in vessel 
vsllenft in vessel 
vsllenin in vessel 
adultpfd in boarding 
boarding date | 
boday in boarding 
bodist in boarding 
boname in boarding 
boarding report number 
boopfac in boarding 
borate in boarding 
boreml in boarding 
borem2 in boarding 
borem3 in boarding 
bsunrise in boarding 
bsunset in boarding 
Boamearng tine 
bounce in boarding 
Vessel, Call sign 
cabin color 
childpfd in baording 
cme decal year 
coded vessel construction 
cme decal? 
deck color 
hucdiecolor 
vessel homeport | 
vessel unusual markings 
number of vessel masts 
comparison variable 
comparison variable 
obscount in boarding 
obsbody in boarding 
Ea in boarding 
laepeude position 
longitude position 
obsstate in boarding 
vessel official numbers 
operator street address 
operator city address 
operator course code 
Gpemearer date of birth 
operator first name 
operator id (system) 
operator last name 
operator middle initial 
operator state address 
operator telephone number 
operator zip code 
owstatus in boarding 
owner street address 
owner city address 
OWemedate Of pirth 
owner first name 
owner last name 
owner middle initial 
owner id (system) 


Used In 


addebrd.prg 


add_ownr.prg 


vowst 
vowtelno 
vowzip 
vsallno 
vslcolor 
vsuper 
VErCOLOr 
vuns69 
vuns70 
vuns71 
vuns/2 
vuns73 
vuns74 
vuns75 
vuns 76 
vuns77 
vuns78 
vuns79 
vvalue 
vv10154 
VV10155 
vv10156 
vv10157 
vviol58 
vv10159 
vv10160 
vviol6l 
vviol62 
vviol63 
vv10164 
vvio0l65 
vv10166 
vv10167 
vviol68 
vvsleng 
Vas Lee 
vvslfuel 
vvslhin 
vvslhp 
vvslhull 
vvslin 
vvslmake 
vvslmod 
vvsiname 
vvslno 
vvslpob 
vvslprop 
vvslton 
vvsltype 
vvsluse 
vvslyear 
vweapons 
done 
loadok 
more 
mrownrs 
out 
reenter 
vowaddr 
vowcity 
vowdob 
vowfname 
vowlname 
vowmi 


integer 
text 
text 
text 
text 
text 
Cext 
Cext 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
dollar 
text 
text 
text 
text 
Cext 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
Lest 
Integer 
Cext 
text 
text 
Gert 
Dt ege 4 
text 
text 
text 
text 
integer 
Text 
integer 
text 
text 
EP ae 
iaeeder 
text 
Cext 
text 
text 
text 
text 
text 
text 
date 
text 
text 
text 
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owner 
owner 
owner 
owner 


Description 


id (system) 
state address 


telephone number 


Zip code 


sail number 


sailec 
vessel 
Crim c 
unsafe 
unsafe 
unsafe 
unsafe 
unsafe 
unsafe 
unsafe 
unsafe 
unsafe 
unsafe 
unsafe 
vessel 


olor 
superstructure 
OLor 
condition 69 
Gona1ition 70 
condition 71l 
condition 72 
condition 73 
condition 74 
condition 75 
condition 76 
condition 77 
condition 78 
Condition 7 
value 


violation code 54 
Vidamion Ccoder>> 


violat 
violat 
V Lowa 
violat 
violat 
Vito lam 
violat 
violat 
violat 
violat 
violat 


ion code 56 
Hon Code Se 
ion code 58 
ion code 59 
ion code 60 
ion code 61 
1on code 62 
1on code 63 
ion code 64 
on Code 65 
10n code 66 


violation code 67 


violat 
coded 
vessel 
coded 


1on code 68 


vessel engine compa 


length (feet) 


fuel compartment 


vslhin in vessel 


vessel 
coded 

vessel 
vessel 


horsepower 


vessel hull materia 
length (inches) 


make 


vslmodel in vessel 


vessel 
vessel 


name 
number 


personnel on board 


coded 


vessel propulsion 


vsltons in vesse 


coded 
coded 
vessel 


vessel type 
vessel use 
year 


weapons in boarding 
flag variable 


variable 
varlapble 


input 


flag variable 


Useeye 


ee 

street address 
city address 
date Of bir etm 
first name 
last name. 
middle initial 


Description 


add_ownr.prg vownid integer owner id (system) 
vowst text owner state address 
vowtelno text owner telephone number 
, vowz1ip ext owner 2Z1ip code 
: vvslhin text vslhin in vessel 
add_sar.prg addlownr text user input 
backup text flag variable 
choice text user input variable 
cont text user input 
difsar text flag variable 
fixeor text flag variable 
fixown text flag variable 
loadmenu text flag variable 
more text flag variable 
mrownrs Cee user dnput 
mrunits CExG USeiLapUL 
opl text oplname in operator 
op 10 erar opcourse in operator 
opll integer Opmd Biyoperator 
op2 text opfname in operator 
op3 text opml in operator 
op4 text opaddr in operator 
op5 text opener im Operator 
op6 text OPState 1n Operator 
op? text ceeat in operator 
ops text optelno in operator 
op9 date opdob in operator 
owl text ownlname in owners 
owl Cegat ownid in owners 
owz2 text ownfname in owners 
ow3 Cease ownml in owners 
ow4 text ownaddr in owners 
Oow5 text owncity in owners 
ow6 text _ ownstate in owners 
ow? text ownZlp in owners 
ow8 terme owntelno in owners 
ow9 date owndob in owners 
pg integer counting variable 
pgcount integer counting variable 
review , CEE flag variable 
=k date Samdate in Sar 
$2 time sartime in sar 
$3 real sarlat in sar 
s4 real sarlong in sar 
$5 text sarnod in sar 
s6 text sarvhin in sar 
sunits text user input 
vl text vslno in vessel 
vl0 text vslhp in vessel 
vil text vsluse in vessel 
Vaz text vsltype in vessel 


v13 text vslprop in vessel 


v14 text vslhull in vessel 
Vio text vsleng in vessel 
v16 text vslfuel in vessel 
v17 text vslconst in vessel 
v18 text cmedecal in vessel 
v19 text cmeyuear in vessel 
v2 text vslname in vessel 
v20 text vsloffno in vessel 
v21 text homeport in vessel 
V22 text vslceall in vessel 
v23 text vslvalue in vessel 
v24 text vslsuper in vessel 
v25 text vslmasts in vessel 


Loi 


Used In 


add_sar.prg 


vebcolor 
veeiling 
vclouds 
vemeyear 
vconstr 
vdateos 
vdecal 
vdistoff 
vdkcolor 
vdvmoord 
vdvmoort 
vetadate 
vfoldno 


vVileolor: 


vhome 
Vimmed 
vmarks 
vmasts 
vmaxXop | 
ymaxown 
vmucn 
voffno 
vopaddr 
vopcity 
vopcerse 
vopdob 
vopfname 
vopid 
voplname 
vopm1 
vopst 
voptelno 
vopzip 
voseta 
vostime 
vowaddr 
vowcity 
vowdob 
vowfname 
vowlname 
vowmi1 
vownid 
vowst 
vowtelno 
vowzip 
vsailno 
vsardate 
vsarday 


integer 
LA Geder 
iPeeoe 
date 
Cime 
text 
text 
text 
text 
Cext 
Cext 
date 
Cex 
Ime ger 
Text 
Gane 
time 
date 
text 
text 
text 
text 
text 
Cec 
Laie dea 
INEeger 
text 
Cext 
text 
Cext 
Cext 
date 
Cexec 
Dee ers 
text 


Cext 
text 
Cext 
Cexe 
time 
Cime 
Cext 
text 
date 
Cext 
text 
text 
text 
Cext 
text 
text 
text 
date 
Cext 
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Description 
Sailno in vessel 
hlcolor in vessel 
trcolor in vessel 
slcolor in vessel 
vslhin in vessel 
cbcolor in vessel 
dkcolor in vessel 
vslmarks in vessel 
vslmake in vessel 
vslmodel in vessel 
VSlVean in vessel. 
vsltons in vessel 
vsllenft in vessel 
vsllenin in vessel 
date alongside 
time alongside 
VEsSelmediee sign 
Capaiimicorou 
Cen aieeermasct 
clouds in sar 
cme decal year 
coded vessel construction 
on scene date 
cme decal? 
distance offshore 
deck color 
date distressed vessel mo 
time distressed vessel mo 
on scene eta date 
sar folder number 
hull cover . 
vessel hemeport 
immediate sane 
vessel unusual markings 
number of vessel masts 
comparison variable 
comparison variable 
multi-unit case number 
vessel official numbers 
operator street address 
operator city address 
operator course code 
operator date of bimen 
Operdeonertnse ame 
operator id (system) 
operator last name | 
operator middle initial 
operator state address 
operator telephone number 
operator zip code 
on Scene eta tine 
on seendé, time 
owner street address 
owner city address 
owner date of birth 
owner first name 
owner last name 
owner middle initial 
owner id (system) 
owner state address 
owner telephone number 
owner zip code 
sall number 
sar date 
sar day of the week 


Used In 


add_sar.prg 


add_sbd.prg 


vsarlat 
vsarlong 
vsarnod 
vsarpob 
vsartime 
vseas 
Volec lor 
vvsltype 
vsumoord 
vsumoort 
vsunrise 
vsunset 
vsuper 
vswells 
vtowdate 
vtowtime 
VEEcOlLor 
VUET 
Vie 
vuwdate 
vuwtime 
vvalue 
vvisdist 


vvsliuel 
vvslhin 
vvslhp 


vvslhull 


vvslin 
vvslmake 
vvsimod 
vvsiname 
vvsino 
vvslprop 
vvslton 
vvsluse 


vvslyear — 


vwinddir 
vwindspd 
addl_opr 
aC 


backup 
choice 


ine ger 
time 
text 
text 
text 
date 
Cime 
time 
time 
text 
text 
daee 
time 
text 
text 
text 
date 
Cime 
dollar 
integer 
text 
integer 
text 
Cext 
text 
text 


‘integer 


text 
text 
text 
text 
Cent 
integer 
text 
text 
text 
Cext 
text 


' text 


date 
time 
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Description 
latitude position 
longitude position 
nature of distress 
personnel on board 
Sar tame 
seas in sar 
Sa leo Lor 
Geeed vessel type 
date sar unit moored 
time sar unit moored 
bsunrise in boarding 
bsunset in boarding 
vessel superstructure 
swells in sar . 
date started towing 
time started towing 
trim color 
unit case number 
Sar unit name 
underway date 
underway time 
Vecee le value 
visdist in sar 
coded vessel engine compa 
vessel length (feet 
coded fuel compartment 
vslhin in vessel 
vessel horsepower 
coded vessel hull materia 
vessel length (inches) 
vessel make 
vslmodel in vessel 
vessel name 
vessel number 
coded vessel propulsion 
vsltons in vesse 
coded vessel use 
vessel year 
winddir in sar 
windspd in sar 
user input 
USER Taput . 
bodate in boarding 
botime in boarding 
obslat in boarding 
bolong in boarding 
flag variable - 
user anput varilabie 
user input 
flag variable 
flag variable 
flag variable 
flag variable 
flag variable 
flag variable 
user input 
user input 
user imput 
oplname in operator 
opcourse in operator 
Op2a “ig operator 
opfname in operator 
opml in operator 
opaddr in operator 
OpCaty wa operator 


Used In 


add_sbd.prg 


ow9 


oe 
pgcount 
review 


vboopfac 


ines de 
Tce Germ 
text 
date 
time 
real 
real 
text 
text 
Cext 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
Text 
Cext 
text 
text 
text 
text 
text. 
Cext 
text 
Cext 
text 
text 
text. 
Gewc 
inte ger 


. Integer 


integer 
integer 
Gace 
time 
date 
text 
text 
text 
text 
text 
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Description 


opstate in operator 
ee in operator 
optelno in operator 
opdob in operator 
ownlname in owners 
ownid in owners 
ownfname in owners 
ownmi in owners 
ownaddr in owners 
owncity in owners 
ownstate ln owners 
pile in owners 
owntelno in owners 
owndob in owners 
counting variable 
counting variable 
ied variable 
sardate in sar 
Sabeime in Sar 
Sdiglac tn sar 
sarlong in sar 
SeEnoOd.in sar 
sarvhin in sar 
user Input 
Vsinerin vessel 
vslhp in vessel 
Venoe in vesse 
Veleype in vesoem 
Volmmaoe in Vesoer 
vslhull in vessel 
vsleng in vessel 
vslfuel in vessel 
vslconst in vessel 
emedecal in vessel 
Chievuedr in vessel 
Vslname in vessel 
vsloffno in vessel 
homeport in vessel 
vsleall in vessel 
Velyalue in vessem 
Volsuper in vessel 
vslmasts in vessel 
Sallno in vessel 
hicolor in vessel 
treolerein vessem 
sicolor in vesses 
vslhin in vessel 
cbcolor in vessel 
dkcolor in vessel 
vslmarks in vessel 
vslmake in vessel 
vsimodel in vessel 
vslyear in vessel 
vsltons in vessel 
Vemlence in vessel 
vsllenin in vessel 
adultpfd in boarding 
date alongside 
time alongside 
boarding date _ 
boday in boarding 
bodist in boarding 
boname in boarding 


boarding report number 


boopfac in boarding 


Used In 


add_sbd.prg 


vborem3 
vbosrise 
vbosset 
vbotime 
vboun1t 
veall 
vebcolor 
veeliling 
Velhneerc 
vclouds 
vemeyear 
VEOnNStr 
vdateos 
vdecal 
Val stofft 
vdkcolor 
vdvmoord 
vdvmoort 
vetadate 
vfoldno 


Vnueeior 


vhome 
vimmed 
vmarks 
vmasts 
vmaxop 
vmaxoper 
vmaxown 
vmucn 
vobcount 
vobsbody 
vobscity 
vobslat 
vobslong 
vobstate 
voffno 
vopaddr 
vopcity 
vopcerse 
vopdob 
vopfname 
vopid. 
voplname 
vopm1 - 
vopst 
voptelno 
vopzip 
voseta 
vostatus 
vostime 
vowaddr 
vowcity 
vowdob 
vowfname 
vowlname 


vowst 
vowtelno 
vowzZ1p 
vsailno 


Cem 
lmee cer 
text 
text 
text 
date 
EeGXe 
Inceqer 
text 
date 
time 
date 
text 
text 
text 
text 
text 
Cem 
THEeGger 
Sh iiseeets 
PHeeger 
text 
text 
text 
text 
real 
real 
text 
text 
text 
text 
text 
date 
text 
integer 
text 
text 
text 
text 
text 
time 
text 
time 
text 
text 
date 
text 
text 
text 
Cert 
integer 
text 
text 
text 
text 
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Description 
borate in boarding 
boreml in boarding 
borem2 in boarding 
borem3 in boarding 
bsunrise in boarding 
bsunset in boarding 
boarding time _. 

Devries boarding 
Vgeoewmcals 5i9n 

cabin color 

ee in sar 
childpfd in baording 
eiouds in sar 

cme decal year 
coded vessel construction 
Cumceene date 

cme decal? 

distance offshore 

deck color 
datemdistressed vessel mo 
time distressed vessel mo 
Onmaceme €ta date 

sar folder number 

hue Gulor 

vessel homeport 
innegrate sar? 
vessel unusual markings 
number of vessel masts 
comparison variable 
comparison variable 
comparison variable 
multi-unit case number 
obscount in boarding 
obsbody in boarding 
a in boarding 
jatitude position 
longitude position 
obsstate in boarding 
Vecoeteetficial numbers 
CPemactOm Street address 
operator city address 
Operatom course code 
operator date of birth 
Opematonm firste name 
operator id (system) 
operator last name 
operator middle initial 
operator state address 
operator telephone number 
operator zip code 

woceiers ta time 
owstatus in boarding 

on scene time 

owner. street address 
owner city address 
dgnemeaace of birth 
owner first name 

owner last name 

owner middle initial 
owner 1d (system 

owner id (system 

owner state address 
owner telephone number 
owner Zip code 

sail number 


Used In 


add_sbd.prg 


vsardate 
vsarda 
vsarla 
vsarlong 
vsarnod 
vsarpob 
vsartime 
vseas 
vslcolor 
vvsltype 
vsumoord 
vsumoort 
vsunrise 
vsunset 
vsuper 
vswells 
vtowdate 
vtowtime 
VEGCOLor 
vucn 
Vu. t 
vuns69 
vuns70 
vuns71 
vuns72 
vuns73 
vuns74 
vuns75 
vuns76 
vuns77 
vuns78 
vuns79 
vuwdate 
vuwtime 
vvalue 
vviol54 


Vuaolss 


vv1lol56 
vviol57 
vv1io0158 
vv1o0l59 
vviol60 
vviolél 
vviol62 
vviol63 
vviol64 
vviolé65 
vviol66 
vviol67 
vviol68 
vvisdist 
vvsleng 
vvslft 
vvslfuel 
vvslhin 
vvslhp 
vvslhull 
vvslin 
vvslmake 
vvslmod 
vvslname 
vvslno 
vvslpob 
vvslprop 
vvslton 


real 
Cext 
LieEegon 
time 
text 
text 
text 
daze 
Cime 
time 
time 
text 
text 
date 
time 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
date 
time 
dollar 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
Gext 
integer 
text 
integer 
text 
Cext 
text 
Cex 
integer 
text 
text 
text 
Ger 
Integer 
Gexic 
integer 
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Description 
sar date 
Seca of the week 
latitude position 
lengtince Sesteon 
nature of distress 
personnel on board 
Sar cCime 
séas in sar 
sail color 
coded vessel type 
date sar unit moored 
time sar unit moored 
bsunrise in boarding 
bsunset in boarding 
vessel superstructure 
swells in sar 
date started towing 
time started towing 
trim color 
unit case number 
sar unlt name 
unsafe condition 69 
unsafe condition 70 
unsafe condition 71 
unsafe condition 72 
unsafe condition 73 
unsafe condition 74 
unsafe condition 75 
unsafe condition 76 
unsafe condition 77 
unsafe condition 78 
unsafe condition 79 
underway date 
underway time 
vessel value 


violation 
violation 
violation 
violation 
violation 
violation 
violation 
violation 
violation 
violation 
violation 
violation 
violation 
violation 
violation 


code 5 


code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 


visdist in sar 


coded vessel Bp compa 
ce 


vessel length 


coded fuel compartment 


vslhin in vessel 
vessel horsepower 


coded vessel hull materia 
Beda (inches) 
@ 


vessel 
vessel ma 


et) 


vslmodel in vessel 
vessel name 

vessel number 
personnel on board 


coded vessel propulsion 


vsltons in vesse 


Used In 


add_sbd.prg 


add_sut.prg 


am_pint.prg 


am_vint.prg 


boarding.prg 


bomajor.prg 


valgdate 
valgtime 
vdateos 
vdvmoord 
vdvmoort 
vetadate 
vfoldno 
voseta 
vostime 
vsumoord 
vsumoort 
vtowdate 
vtowtime 
vunit 
vuwdate 
vuwtime 
choice 
COEreECT 


vintdate 
vintdate 
vintdob 
vintm1 
vintreml 
vintremz2 
vintrem3 
viname 
choice 
ECERCee 
fixvsl 
more 
mrintel 
Feenuer 
vepic 
vintdate 
vintreml 
Vineeemz 
vintrem3 
vstolen 
vvslname 
datediff 
enddate 
numrows 
strtdate 
datdiff 
easttst 
enddate 
inarea 
1npCe 
northtst 
outarea 
Suzpct 
southtst 
strtdate 


westtst 


text 
text 
text 
text 
text 
text 
date 
date 
date 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
date 
text 
text 
text 
text 
CERE 
integer 
date 
liege r 
darte 
Vaceger 
real 
date 
ingeger 
real 
celal 
Imteger 
real 
real 
date 
real 
real 
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Description 
coded vessel use 
vessel year 
weapons in boarding 
Wingert 1h sar 
windspd in sar 
flag variable 
Usereinput 
date alongside 
time alongside 
GOmmaceme Cate 
date distressed vessel mo 


time distressed vessel mo 


OMmecene ‘evan date 
sar folder number 
ONescene eta time 
Siimocene time 

date sar unit moored 
time sar unit moored 
date started towing 
time started towing 
sar unlit name 
underway date 
underway time 

user input 

user input 

flag variable 


user input 


user input | 
iieenane 1n perintel 

Pileaaremin perintel 
ieee tn vslantel 
imedem th perintel 
Inhaeen perinte! 

Pimesem! in perintel 

pintrem2 in perintel 
IMerems in perintel 
Mmicineame in perintel 

user input 

User dapuct 

user input 

flag variable 

User anput 

user input 

eurecose in veiintel 
iitdaee in vsilintel 

vremarkl in vslintel 

vremark2 in vslintel 

vremark3 in vslintel 
stolen in vslintel 

vessel name 

date difference 

CHaanGaaate — 

counting variable 

auce ane date 

date diirterence 

nautical ee ben coord. 

Beg da el 

summation variable 

Pebesntage 

nautical position coord. 

summation variable 

percentage 

nautical pesitien coord. 
starting date 

petcencage — 

nautical position coord. 


Used In 


bominor.prg 


brd_main.prg 
CMe rpe.org 


daynight.prg 


datadifft 
datediff 
easttst 
enddate 
lnarea 
inpet 
northtst 
outarea 
CULDEt 
southtst 
strtdate 
temppct 
Wecttst 
pc1ike6é 
after90 
before70 
cmecount 
datediff 
enddate 
pet7l7s 
BCkL/o/2 
pct8081 
DCEozo3 
pct8485 
pct8687 
pct83889 
pctcme 
pcetgt90 
Bectlt/o 
strtdate 
Cotes 
vpc 
vpct7l1 
ViGiE/ oO 
vpcts0 
Voc roZ 
vpct84 
vpctés6 


pctnites 
strtdate 
totbrds 
totsars 


integer 
phe alo aic 
real 
date 
INceger 
real 
real 
Pc Ger 
real 
real 
date 
real. 
Beau 
IMce ger 
PHEe Ger 
LN Le Ger 
Lneeger 
Ee Gens 
date 
real 
real 
real 
real | 
real 
real 
real 
real 
real 
real 
date 
ae Gels 
real 
real 
real 
real 
real 
real 
real 
real 
Gea 
InEeEger 
integer 
INL eger 
IBLE Ger 
INEeGey 
LWLe Ger 
THEE gen 
IMve ger 
LHCeGen 
integer 
aac 
LNESGer 
IMG emgen 
real 
real 
real 
real 
date 
ICES 
Integer 
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Description 


date difference 
date difference 


nautical 


ending da 


GOunmEING 
percenta 
nautical 
counting 
Bepecenta 
nautical 
Starting 
pereenca 
Matitaes L 
counting 
counting 
counting 


gOunEAnG 


date di 


Rosaeron coord. 
e 


variable 


ge |, 
position coord. 


variable 


ge, 
position coord. 


date 


ge... 
position cecra- 


variable 
variable 
variable 
variable 
Shenae 


ending date 
percentage 
percentage 
percentage 
percentage 
penceneacge 
percentage 
percencage 
bereenitage 
bereceiecage 
percentage 
starting date 


counting 


variable 


Berpcentacge 
bercencage 
percentage 
percentage 
percentage 
percentage 


Pereeica 


ge 


Percentage 


percenta 
counting 
counting 
counting 
counting 
counting 
counting 


SOunt Tag 


date di 
counting 
countin 
ending 
counting 
counting 


ge 


variable 
variable 
variable 
variable 
variable 
variable 
variable 
erence 

variable 
variable 


ate 


variable 
variable 


percentage 
percentage 
percentage 
percenLage 
starting date 
total boardings 
total sars 


Used In Name Type Description 
epicdump.prg datediff integer date difference 
asc l Eerst = @epicdscl in VSLINTEL 
edsc2 test = epicdsc2 in VSLINTEL 
edsc3 Cert = @p@edsc3 ia VSLENTEL 
edsc4 Cext = epicdsc4 in VSLINTEL 
enddate Gace Gncung date — 
epicnum integer counting variable 
Perc test Cee = epiccode in VSLINTEL 
pcttempl real % epiccode / total vsls 
pcttemp2 real % epiccode / total vsls 
strtdate date starting date 
totepics inize ger couptand variable 
immedsar.prg datediff integer dame saairference 
enddate date ending date 
notimmed ingeger non-immediate SAR Cases 
numrows integer counting variable 
pctimmed real % immediate SAR cases 
pctimmed real ercentage _ 
PEENOEUM real % non-immediate SAR Cases 
pctnotim neal percemcage 
strtdate date starting date 
totimmed integer counting variable 
. | totsars integer counting variable 
inpmain.prg pick2 In eeger menu variable 
int_main.prg plek5 intecer menu variable 
intelrpt.prg code integer input variable 
constrds text = consdesc in CONSTR 
consttst Comet = eo gees ae ONS LR 
datediff see geik Gecewar: terrence 
enddate date ending date 
engdescr text = ecomptyp in ENGCOMP 
engtst text = ecomptype in ENGCOMP 
fdesc text = fcompdes in FUELCOMP 
- fueltst text = fcomptyp in FUELCOMP 
hdesc text = hmatdesc in HULLMAT 
nuts t text = hmattype in HULLMAT 
len2030 integer counting variable 
len3040 IYCeger counting variable 
len4050 ImMee Geir counting variable 
len5060 integer counting variable 
len6070 inbege r counting variable 
len7080 imntiege F counting variable 
len8090 integer counting variable 
len90100 ince Ger counting variable 
len<20 meecder counting variable 
len>100 inbegenr counting variable 
numrows integer counting variable 
pct2030 neal percentage 
pct3040 real percentage 
pct4050 real percentage 
pct5060 real percentage 
pct6070 real percentage 
pct7080 real percentage 
pctso0g0 real percentage 
pctg010 real percentage 
pct90100 real percentage 
pct<00 real percentage 
pet<20 real percentage 
pct<60 real percentage 
pct<65 real percentage 
pees 70 real percentage 
pet<76 real percentage 
pct<80 real percentage 
pct<85 real percentage 
pct<9g90 real percentage 
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Used In Name Type Description 
intelrpt.prg patos real percentage 
pct>00 real percentage 
pet>100 real percentage 
Bugesc text = propdesc in BOATPROP 
tst ect = proptype in BOATPROP 
a date date starting date 
sumconst eget counting variable 
sumeng aise ews counting variable 
sumfuel cee cers counting variable 
sumhull i cegers counting variable 
sumprop iaceger counting variable 
sumtype integer counting variable 
sumuse integer counting variable 
totbrds integer counting variable 
totviols integer summation variable 
totviols Integer counting variable 
ev integer summation variable 
Ev LO tite gen summation variable 
tv2 integer summation variable 
tv20 integer summation variable 
tv3 integer summation variable 
tv30 Pinee ae summation variable 
tv4 integer summation variable 
tv5 integer summation variable 
typdescl text = vtypedes in BOATTYPE 
typetest text = vtype in BOATTYPE 
usedescl text = vusedesc in BOATUSE 
User eat EexE = vuse in BOATUSE 
vitndesc text = violdesc in VIOLS 
vno text = violno in VIOLS 
VpCtZzoau real percentage 
vpct3040 real . percentage 
vpct4050 real percentage 
vpct5060 real percentage 
vpct6070 real percentage 
vpct7/080 real percentage 
vpcts090 real percentage 
vpct9010 real percentage 
vpct<00d real percentage 
YVpctr<Z0 real percentage 
vpct<60 real percentage 
YpCE<65 real percentage 
VoOCE<70 real percentage 
voct<7s real percentage 
vpct<80 real percentage 
vpct<85 real percentage 
ypct<90 real percentage 
Voctas> real percentage 
vpct>0Q real percentage 
vVpce>i00 real Pereencage 
yr<1960 integer counting variable 
Vrcl Joo integer counting variable 
yr<1970 integer counting variable 
VG<ioiS integer counting variable 
yr<1980 integer counting variable 
VECLIeD integer counting variable 
Vusla 20 integer Coun@img variabile 
VEcioeS lime eC cers counting variable 
yr<2000 integer counting variable 
| yr>2000 integer counting variable 
modmain.prg pick3 integer menu variable 


mod_brd.prg 


correct 
er 

er 
error 
more 
mrvsls 


Pg | 
review 
vadult 
vbodate 
vboday 
vbodist 
vboname 


text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
Cext 
Cime 
Tie jes 
time 
Gea 
integer 
integer 
E 


text 
text 
text 
text 
text 
text 
text 
text 
text 
Cera 
linge ger 
Ceret 
Integer 
date 
text 
text 
text 
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Description 


bodate in boarding 
viol54 in boarding 
viol64 in boarding 
bounit in boarding 
ca 
obsstate in boarding 
obslat in boarding 
obslong in boarding 
Varo a5 

Violso 1n boarding 
viol57 in boarding 
viol58 in boarding 
viol59 in boarding 
botime in boarding 
viol61 in boarding 
viol61 in boarding 
viol62 in boarding 
viol63 in boarding 
viol65 in boarding 
viol66 in boarding 
viol67 in boarding 
viol68 in boarding 
uns69 in boarding 
uns70 in boarding 
uns71 in boarding 
uns72 in boarding 
Ulises in boarding 
uns74 in boarding 
uns75 in boarding 
uns76 in boarding 
uns77 in boarding 
uns78 in boarding 
uns79 in boarding 
boreml in boarding 
borem2 in boarding 
borem3 in boarding 
boname in boarding 
borate in boarding 
bodist in boarding 
boopfac in boarding 
boday in peg aging | 
bsunrise in boarding 
adultpfd in boarding 
bsunset in boarding 
bovhin in boarding 
Wee in boarding 
childpfd:in boarding 
owstatus in boarding 
obsbody in boarding 
obscount in boarding 
flag variable 

flag variable 

user input 

USEF Input 

flag variable 

flag variable 

flag variable 

user input | 
counting variable 
frag variable 
adultpfd in boarding 
boarding date | 
boday in boarding 
bodist in boarding 
boname in boarding 


Used In 


mod_Drdaerd 


mod_owop.prg 


vbono 
vboopfac 
vborate 
vboreml 
vborem2 
vborem3 
vbosrise 
vbosset 
vbotime 
vbounlt 
Vena 
vobcount 
vobsbody 
vobscity 
vobslat 
vobslong 
vobstate 
vostatus 
vuns69 
vuns70 
vuns71 
vuns72 
vuns73 


integer 
text 
text 
text 
real 
real 
text 
text 
text 
text 
CeOXE 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
integer 
integer 
text 
Cec 
Inveder 
text 
text 
text 
text 
text 
text 
Cec 
integer 
text 
text 
text 
text 
text 
text 
text 
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Description 
boarding report number 
boopfac in boarding 
borate in boarding 
boreml in boarding 
borem2 in boarding 
borem3 in boarding 
bsunnise in boapding 
bsunset in boarding 
boarding time |. 
bounlt in boarding 
childged in baonding 
obscount in boarding 
obsbody in boarding 
ope eae in boarding 
latituaes positien 
lengituae posteton 
obsstate in boarding 
owstatus in boarding 
unsafe condition 69 
unsafe condition 70 
unsafe condition 71 
unsafe condition 72 
unsafe condition 73 
unsafe condition 74 
unsafe condition 75 
unsafe Conditions 
unsafe condition 77 
unsafe condition 78 
unsafe condition 79 


violation 
violation 
violation 
violation 
violation 
Violatron 
violation 
violation 
violation 
violation 
Violamien 
violation 
violation 
violation 
Violaeron 
vslhin in 
personnel 


code 5 


code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 


vessel | 
on board 


le 


- weapons in boarding 
flag variab 


user input variable 


usen Lapuc 


flag variable 
flag variable 


user input 
user input 


flag vaniable 
oplname in operator 
opcourse in operator 
opid in operator 
opfname in operator 
opml in operator 
opaddr in operator 


opcit 


in Operator 


opstate in operator 
onan ay OPeratonr 
n 


opte 


o in operator 


Used In 


mod_owop.prg | 


mod_sar.prg 


ow9 
gvenange 
owfoun 
vopaddr 
vopcity 
vopcrse 
vopdob 
vopfname 
vopid 
voplname 
vopm1 
vopst 
voptelno 
vopzl1p 
vowaddr 
vowcity 
vowdob 
vowfname 
vowlname 
vowm1 
vownid 
vownid 
vowst 
vowtelno 
vowzZip 
change 
Correct 
er 

more 
mrsar 
oldfold 
heemreer 
sl 

s10 

sll 

$12 

s13 

s14 

s15 

s16 

s17 

s18 

s19 

S2 


text 
integer 
text 
text 
text 
text 
text 
text 
text 
text 
text 
date 
text 
text 
text 
text 
text 
date 
cee 
integer 
text 
text 
text 
text 
text 
text 
text 
date. 
text 
text 
text 
exc 
raceger 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
cen 
integer 
text 
real 
real 
Pceqer 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
date 
text 
time 
time 
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Description 

oneob in @perator 

ag variable 
flag variable 
operator id (system) 
ownlname in owners 
ownid in owners 
ownfname in owners 
ownml in owners 
ownaddr in owners 
Own REY in owners 
ownstate in owners 
ownZip in owners 
owntelino in owners 
owndob in owners 
flag variable 
flag variable 
operator street address 
operator city address 
Gpemaeor Course code 
Gperator date of birth 
operator first name 
operator id (system) 
operator last name | 
operator middle initial 
operator state address 
operator telephone number 
operator zip code 
owner street address 
owner city address 
owner date of birth 
owner first name 
owner last name 
owner middle initial 
owner id oad 
owner id (system 
owner state address 
owner telephone number 
owner zip code 
Pudge vdatep..e 
User Snpuc 
user input 
flag variable . 
USERS OpUct 
folder number 
flag variable 
folderno in sar 
sarpob in sar 
sarvhin in sar 
sarlat in sar 
SaaleGma in sar 
distoff in sar 
immedsar in sar 
winddir in sar 
windspd in sar 
visdist in sar 
clouds in sar 
uciein Sar 
Géi8ing ih sar 
seas in sar 
swells in sar 
mucn in sar 
sardate in sar 
sarday in sar 
sartime in sar 
ssunrise in sar 


Used In 


mod_sar.prg 


mod_sut.prg 


vceilin 
vdistof 
vfoldno 
vimmed 
vmucn 
vsardate 
vsarday 
vsarhin 
vsarlat 
vsarlong 
vsarnod 
vsarpob 
vsartime 
vseas_ 
vsunrise 
vsunset 
vswells 
VuGcH 
vvisdist 
vwinddir 
vwindspd 
both 
change 
correct 
done 
foldok 
more 
mrsut 
name 
reenter 
suld 
sull 
sulz 
sul3 
sul4é4 
sul5 
sul6 

sul 

su2 

su3 

sué 

su5 

su6 

su7 

sug 

sug 
valgdate 
valgqtime 
vdateos 
vdvmoord 
vdvmoort 
vetadate 
vfoldno 
voseta 
vostime 
vsumoord 
vsumoort 
vtowdate 
vtowtime 
Vunie 
vuwdate 
vuwtime 


Cex 
Inceger 
time 
Cexe 
ec 
Cime 
Cext 
Cext 
text 
text 
Cext 
Cext 
Cext 
Cext 
text 
Cext 
text 
text 
text 
Cext 
date 
Cime 
date 
Cime 
Gait € 
Cime 
date 
text 
Cext 
time 
date 
time 
date 
Cime 
date 
text 
date 
time 
date 
date 
Cime 
date 
Cext 
Came 
time 
claiue 
Cime 
date 
Cime 
text 
date 
time 
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Description 
ssunset. 
sarnod in sar 
celling in sar 
distance offshore 
sar folder number 
immediate sar? 
multi-unit case number 
sar date 
sar day of the week 
sarvhin in sar 
latitude position 
longitude position 
nature of distress 
personnel on board 
sar time 
seas in sar 
bsunrise in boarding 
bsunset in boarding 
swells in sar 
unit case number 
visdist in sar 
winddir in sar 
windspd in sar 
fig Vantaole 
flag variable 
user input 
flag variable 
flag variable 
flag variable 
user input 
flag variable 
Hsom put . 
alngdate in sarunits 
towtime in sarunits 
towdate in sarunits 
dvmoored in sarunits 
dvmdate in sarunits 
sutmoor in sarunits 
sutdate in sarunmie 
foldno in sarunits 
URZE In Saruntes 
uwtime in sarunits 
uwdate 
OSGiomin Sdruntes 
etadate in sarunits 
Ostime in Sarkuries 
osdate in sarunits 
alngtime in sarunits 
date alongside 
time alongside 
On Skene, aate 
date distressed vessel mo 
time distressed vessel mo 
One-SGene eal dae 
sar folder number 
On se@eéne ela time 
on scene time 


date sar unit moored 


time sar unit moored 
date started towing 
time started towing 
sar unit name 
underway date 
underway time 


Used In 


mod_vhin.prg 


operator.prg 


opervsl.prg 


opervsls.prg 


owners.prg 


ownvsl.prg 


packdbms.prg 
perintel.prg 


chk hin 
chk name 
correct 
correct 
er 

error 
foundv 
more 
mrvsls 
vbadhin 
vconstr 
voffno 
vslfound 
vvsleng 
VYVS IEE 
vvslfuel 
vvslhin 
vvslhp 
vvslhull 
vvslin 
vvslmake 
vvslmod 
vvslname 
vvslno 
vvslprop 
vvslton 
vvsltype 
vvsluse 
vvslyear 
datedif£ 
enddate 
endltr 
leraa£ f 
numrows 
strtdate 
streler 
allrecs 
endltr 
Tera’ f 
SERe@rEr 


Steeler 
datediff 
enddate 
endltr 
ltra@iif 
numrows 
strtdate 
Steet tr 
allrecs 
allrecs 
endltr 
ltrdaaet 
numrows 
SieeEcr 
choice 
datediff 
enddate 
enedsir 
ltrcaer 
numrows 
strtdate 
Btcrelcr 


integer 
text 
text 
text 
Gmc 
integer 
text 
text 
Cee 
Cezar 
Cext 
Iingeges 
text 
Cesc 
text 
reece te 
date 
Gext 
ee Clerc 
integer 
date 
text 
tex 
Cex 
integer 
texc 


Céewc 
tect 
Ineegek 
integer 
Cee 
integer 
date 
text 
integer 
integer 
date 
exc 
Cea 
text 
text 
integer 
integer 
text 
text 
integer 
date 
texzc 
inesger 
integer 
date 
text 
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Description 
flag variable 
flag variable 
user input 
flag variable 
user input 
user input 
user input 
flag variable 
user input 
vslhin in vessel 
cGuecmvessel construction 
vessel official numbers 
flag variable 
coded vessel engine compa 
vessel length (feet) 
coded fuel compartment 
vslhin in vessel 
vessel horsepower . 
coded vessel hull materia 
vessel length (inches) 
vessel make 
vslmodel in vessel 
vessel name 
vessel number . 
coded vessel propulsion 
vsltons in vesse 
coded vessel type 
coded vessel use 
vessel year 
date dirtference 
ending date 
ending letter 
léGeemeotrterence 
counting variable 
starting date 
starting letter 
Elag@enal! records? 
ending letter 
letter difference 
Stdiau let ver 
USeHea ll récords input 
ending letter 
letterman rrerence 
COUMEInG Variable 
sta letter 
date dirtference 
ending date 
ending letter 
letter difference 
counting variable 
starting date 
starting letter 
flag --- all records? 
user all records input 
ending letter 
letter difference 
counting variable 
stageung, letter 
user choice input 
date difference 
ending date 
ending letter 
letter difference 
counting variable 
starting date 
starting letter 


Used In 


prs_main.prg 
grymain.prg 
quer_per.prg 


ownfound 
owoptest 
Dernier 
persprn 
sarhsprn 
searchok 
status 
vale 
vbodate 
vbolat 
vbolong 
vboname 
vbono 
vborate 
vboreml 
vboremz 
vborem3 
vbotime 
vdate 
vdistoff 
vepic 
vfname 
vfoldno 
vimmed 
vintdate 
viname 
vm 
vmucn 
voffno 
vopaddr 
vopcity 
vopcrse 
vopdob 
vopfname 
voplname 
vopm1 
vopst 
voptelno 
vopzip 
vowlid 
vperaddr 
vVpercity 
vperdob 
vperm1 
vperst 
Vpeneel 
vperzip 
vp fname 
vplname 
vreml 
vremz 
vrem3 
vsardate 
vsarday 


InGegen 
integer 
text 
text 
imee-oen 
text 
text 
Cexe 
Meeger 
Cext 
text 
text 
text 
text 
text 
text 
text 
Cext 
text 
date 
real 
real 
text 
text 
CexXt 
text 
text 
text 
time 
date . 
1irteger _ 
text 
text 
text 
text 
date 
text 
text 
text 
Cext 
text 
text 
text 
date 
text 
text 
text 
text 
text 
texe 
integer 
text 
text 
date 
Cext 
text 
text 
text 
text 
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Description 

menu variable 
menu variable 
user input 
flag variable 
counting variable 
flag variable 
flaguvariaote 
user input 
opel aaaiey 2 (system) 

ag variable 
flag variable 
flag variable 
flag variable 
user input 
user input 
user input 
flag variable 
flag variable = 
operator alcohol condiege 
bodraang dace | 
latitude position 


~ longitude position 


boname in boarding 
boarding report number 
borate in boarding 
boreml in boarding 
borem2 in boarding 
borem3 in boarding 
boarding time 
InGemnigence date 
distance offshore 
hae code 

irst name 

sar folder number 
immediate sar? 
vessel intelligence date 
last name | 
middle sriaat Lal 
multi-unit case number 
vessel official numbers 
operator street address 
operator city address 
operator course code 
operator date of DimEn 
operator first name 
operator last name | 
operator middle initial 
operator state address. 
operator telephone number 
operator 21p code 
owner record id number 
street address 
city address 
date of Dirth 
middle initial 
state address 
telephone number. 
zip code 
first name 
last name - 
personnel intelligence Ze 
personnel intelligence ume 
personnel intelligence re 
sar date 
sar day of the week 


quer_per.prg 


quer_vsl.prg 


vsarlat 
vsarlong 
vsarpob 
vsartime 
vslprn 
vstolen 
vucn 
vuns69 
vuns70 
vuns71 
vuns?7 2 
vuns73 
vuns74 
vuns75 
vuns76 
vuns77 
vuns78 
vuns79 
vviol54 
vv1ol55 
vv1iol56 
vv10157 
vv10158 
vv101L59 


vviol60 


vviol61 
vv10162 
vv1i0l63 
vviol64 
vvi1olé65 
vv1o0l66 
vvio0l67 
vv10168 
vvreml 
vvrem2 
vvrem3 
vvslhin | 
vvslmake 
vvslname 
vvslno 
vvslpob 
vweapons 
bohisprn 
ehke@hin 
chk-intl 
chk-name 
chk-no 
chkoffno 
choice 
Eoune 
menu 
more 
nameok 


“Opre 


owhisprn 
owld 
sarhsprn 
valc 
vbodate 
vbolat 
vbolong 
vboname 
vbono 
vborate 
vboreml 


text 
text 
DME cells 
Pic eciers 
text 
Pea 
Berce 
text 
text 
text 
Integer 
Integer 
text 
text 
tex 
integer 
Cex 
eee Gk 
Fest 
Lec 
date 
real 
real 
Ctéxt 
text 
text 
text 
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Description 


latitude position 


longitude position 
personnel on board 
sar time 

user input 
stotenmvesse! 
unit case number 


unsafe 
unsafe 
unsafe 
unsafe 
unsafe 
unsafe 
unsafe 
unsafe 
unsafe 
unsafe 
unsafe 


condition 
SON CEL On 
condition 
condition 
eoncd tron 
condition 
condition 
condition 
condition 
condition 
condition 


violation 
violation 
violation 
violation 
Violation 
violation 
violation 
violation 
violation 
violation 
violation 
violation 
violation 
violation 
violation 


code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 


Veoseleintelligence 
Vessel) intelligence 
V@epems intelligence 


vslhin 
vessel 
vessel 
vessel 


in vessel 
make 

name 
number 


peroonnel on board 
weapons in boarding 


user 


flag 
flag 
flag 


input 

variable 
variable 
ee hao & 
variable 
variable 


input choice 
counting, Var vad be 


variable 
variable 
variable 


Remar 
remar 
- remar 


operator id (system) 


user 


input 


owner id (system) 


user 


operator a 


Input 


boarding date 


latitude position 
longitude 
boname in 


osition 
oarding 


lcohol conditio 


boarding report number 
borate in boarding 
boreml in boarding 


Used In 


quer_vsl.prg 


vborem2 
vborem3 
vbotime 
vdate 
Voaustore 
vdob 
vepic 
vfname 
vfoldno 
vimmed 
Vinedabe 
vintprn 
vlname 
VmL 
vmucn 
voffno 
vopaddr 
vopcity 
vopcerse 
vopdob 
vopfname 
voplname 
vopm1 
vopst 
voptelno 
vopzZip 
vowaddr 
vowcity 
vowdob 
vowfname 
vowlname 
yvowml1 
vowst 
vowtelno 
vowzip 
vreml 
vrem2 
vrem3 
vsardate 
vsarda 
vsarla 
vsarlong 
vsarpob 
vsartime 
vslprn 
vstolen 
vucn 
vuns69 
vuns70 
vuns71 
vuns72 
vuns73 
vuns74 
vuns75 
vuns76 
vuns77 
vuns/78 
vuns79 
vv10154 
vviol55 
VV iolosG 
VivEOLO7 
VVi0O15S 
Vv one 
vv1i0l60 


real 
Iiceges 
time 
text 
text 
text 
Cext 
text 
rext 
rext 
text 
rext 
crext 
rext 
rext 
text 
text 
rext 
rext 
text 
text 
text 
text 
text 
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Description 


borem2 in boarding 
borem3 in boarding 
boarding time 
inteliigenee date 
distance offshore 
date of birth 


epic code 


tifseename 

Sdmeeorcer numer 
immediate sar? 

vessel intelligence (adage 
USEr npUL 


last name 


middle initial 
multi-unit case number 
vessel official numbers 


Operacor 
operator 
operator 
operator 
operator 
ODeEraeor 
operator 
Gperavor 
G@eracon 
Geeratcr 


owner stree 


Street addaiaas 
city address 
course code 
date of barun 
first name 
last name 
middle initial 
state address 
telephone number 
Z1p code 
address 


owner city address 

owner date of birth 

owner first name 

owner last name 

owner middle initial 
owner state address 

owner telephone number 
owner zip code. 
personnel -intelligem@em@re 
personnel intelligengomas 
personnel intelligence re 


sar date 
oo ae 
latveuce 


of the week 


position 


longitude position ~ 
personnel on board 


sar time 


sto 


co variable 
en vessel 


unit case number - 

unsafe condition 69 
unsafe condition 70 
unsafe condition 71 
unsafe condition 72 
unsafe condition 73 
unsafe condition 74 
unsafe condition 75 
unsafe condition 76 
unsafe condition 77 
unsafe condition 78 


Une aeemec tele 1g 


violation 
violation 
Violation 
violation 
violation 
violation 
violation 


code 
code 
code 
code 
code 
code 
code 


quer_vsl.prg 


rptmain.prg 
sar_main.prg 
sardates.prg 
sarday.prg. 


vweapons 
pick4 
pLek? 
jundatel 
aprdatel 
aprdatez 
aprsar 
augdatel 
augdatez 
augsar 
change 
coun 
decdatel 
decdateZ 
decsar 
enddate 
febdatel 
febdatez2 
febsar 
found 
friday 
initdate 
jandatel 
jandatez 
jJansar 
qubiera tel 
Peace eZ 
ques ar 
jundatel 
JuldateZ 
junsar 
mardatel 
mardate2 
marsar 
maydatel 
maydate2 
maysar 
monday 
new 
novdatel 
novdatez2 
novsar 
numrows 
numyears 
octdatel 
octdate2 
octsar 
old 
pctapr 


integer 
integer 
integer 
integer 
date 
date 
date 
integer 
date 
date 
TMeeCer 
real 
Inveger 
date 
date 
integer 
date 
date 
date 
Integer 
LeEXet 


integer | 


date 
date 
date 
integer 
date 
date 
inveger 
date 
date 
integer 
date - 
date 
integer 
date 
date 
integer 
integer 
integer 
date 
date 
integer 
integer 
integer 
date 
date 
integer 
integer 
real 
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Description 
violation code 61 
violation code 62 
violation code 63 
violation code 64 
violation code 65 
violation code 66 
ve aoe a 
violation code 
vessel intelligence remar 
véssel intelligence remar 
vessel intelligence remar 
vslhin in vessel 
vessel make 
vez, ome 
vessel n er 
personnel on board 
weapons in boarding 
menu erebte 
menu variable 
time computation variable 
sdiatdate date 
endin at 
Snteeean piesa 
s Paget date 
endingeaate 
summation variable 
percentage 
counting variable 
a date 
endin at 
summation beiabie 
ending date 
starting date 
endin at 
Su ion variable 

ag variable 
counting variable 
starting date 
wong Mice date 
endin at 
summation variable 
ane Sate date 
endin at 
summation PArieb le 
St aaegace date 
ending dat 
summation Aig 
Se dibs date 
endin at 
summation variable 
salle fete date 
endin at 
summation Saige 
counting variable 
this year's sar cases 
SHaieeia Se date 
endin at 
summation eae 
counting variable 
counting variable 
dine da be date 
endin at 
summation variable 
previous year's sar cases 
perceneage 


Used In 


sarday.prg 


pctaug 
pctchang 
petdec 
PerreD 
PGerr 
petiian 
erin 
petjun 
pctmar 
pctmay 
pctmon 
petnov 
DCtoEt 
pctsat 
Dpectsep 
pctsun 
petthu 
PGEcue 
pctwed 
sar00 
sarQOl 
sar02 
sar03 
sar04 
sar05 
sar06 
sar07 
sar08 
sar09 
sarl0 
sarll 
sarl2 
sar8l 
sar82 
sar83 
sar84 
sar85 
sar86 
sar87 
sar88 
sar89 
sar90 
sar9l 
sar92 
sar93 
sar94 
sar95 
sar96 
sar97 
sar98 
sar99 
saturda 
sepdate 
sepdatez 
sepsar 
suml 
suml0 
suml1ll 
suml2 
sumZ 


integer 
integer 
Peers 
Pieeger 
integer 
Piteger 
Ineegek 
Ineeger 
integer 
integer 
integer 
inveger 
integer 
integer 
integer 
integer 
ineeger 
integer 
integer 
integer 
Ln eegen 
iieeger 
integer 
Lee Gets 
Inbeger 
integer 
integer 
Pie Gers 
integer 
integer 
Tega 
Peegers 
integer 
date 

date 


‘integer 


integer 
integer 
integer 
ii Geen 
ee Ge a 
integer 
inee gers 
integer 
integer 
integer 


ZN 


Description 


percentage 
percentage 
percentage 
percentage 
percencage 
percentage 
percentage 
Ppereemrage 
percentage 
percentage 
pe recniiage 
percentage 
percentage 
percencage 
percentage 
PenGencage 
Derceneage 
perecenrage 
percentage 


counting 
counting 
counting 
counting 
counting 


' counting 


counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 


variable 
variable 
varlable 
variable 
varlable 
variable 
vVaridete 
variable 
varlable 
varlable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
varlable 
varlable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 


sta oes date 
a 


ending dat 
summation 
summation 
summation 
summation 
summation 
summation 
summation 
summation 
summation 
summation 
summation 


e 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 


Used In Name Type Description 


ea) 


sarday.prg Suneey integer counting variable 
thursday integer counting variable 
totsars integer summation variable 
tuesday integer counting variable 
wedsday integer counting variable 
year integer saryear 
YeaLgel date starting de date 
yr198la date endin at 
VElgeZ date starting da BA ts 
yr1982a date endin at 
yrildes date starting de ace 
yr1983a date endin at 
yr1984 date starting és nee 
yr1984a date endin at 
ya 19685 date starting da pees 
yr1985a date endin at 
Vil Jes date starting da Fate 
yr1986a date endin at 
yr1987 date starting da nes 
yrl987a date endin at 
yr1988 date starting da ee 
yr1988a date endin at 
Vrroas date starting da rate 
yr1989a daige ending dat 
yr1990 date enamme date Anes 
yr1990a date endin at 
V7 teleea date starting da fae 
yr1991la date endin at 
vVrigeZ date starting da Fre 
yr1992a date endin at 

Bioo3 date starting ds dite 

yr1993a date ending dat 
yr1994 date starting da Fee 
yr1994a date endin at 
YVELSSS date starting da ae 
yrigssa date endin at 
yr1996 date starting de ae 
yr1996a date endin at 
telgs/ date starting de Ape 
yr1997a date endin at 
yr1998 date starting da fees 
yr1998a date endin ate - 
Wierooo date starting da aeice 
ValooJa date endin at 
yr2000 date starting da Hate 
yr2000a date ending dat 
vEZ001 date State a oe ite 
yr200la date ending dat 
yrZ002Z date ee Haste 
yr2002a date ending dat 
yr2003 date mets iy ioe 
yr2003a date endin at 
yr2004 date starting date 
yr2004a date ending date 
yr2005 date starting da date 
yr2005a date endin at 
yr2006 date starting da mete 
yr2006a date endin at 
yr2007 date starting da date 
yr2007a date endin at 
yr2008 date starting és date 
yr2008a date endin at 
yr2009 date starting da date 
yr2009a date endin at 
yr2010 date sata nic fate 


Used In 


sarday.prg 


sardump.prg 


sarmajor.prg 


sarminor.prg 


sarsmbt.prg 


sarsys.prg 
sartimes.prg 


yr2010a 
VEZoO1e 
yr20lla 
yr2012 
yr20l1l2a 
yrtestl 
Beesr2 
atediff 
enddate 
numrows 
Str Gada ce 
datediff 
easttst 
enddate 
Getcent 
lnarea 
Lnpee 
northtst 
numrows 
outarea 
outpct 
southtst 
strtdate 
Cemppct 
totsars 
westtst 
datediff 
easeest 
enddate 
Gigreent 
idrea 
Lnect 
nonEAtse 
numrows 
outarea 
OUD E 
southtst 
gue toate 
emppc 
ueeerer 
datediff 
enddate 
inpct 
inpct tmp 
inside 
numrows 
outpct 
outpcttm 
outside 
strtdate 
totsars 
pleki 
algavg 
algtimes 
datediff 
datedour 
enddate 
maxaltim 
maxostim 
maxshtim 
maxtttim 
maxtwt im 
minaltim 
minostim 
minshtim 


smote -te(-Da 
Dee Gey, 
miceqer 
date 
Pieeger 
elec 
ee ei 
real 
Gare 
integer 
ineecer 
real 
Beat 
Bee gets 
integer 
real 
real 
date 
Bear 
ape elie 
Beds 
Ae) eile 
new 
date 
LAEeger 
ime ger. 
real 
real 
IME Ses 
econ. 
real 


-real 


date 
real 
Rea 
a eeyeits 
date 
real 
wean 
Tncecelr 
ALQEL=16 (=) g 
real 
rea 
SIE ees fe de 
date 
Ice get 
eee 
real 
Integer 
Inceges 
real 
date. 
real 
real 
real 
real 
real 
real 
real 
real 
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Description 
ending date 
starting date 
ending "aate 
SCamwEang date 
ending date 


leap year test 

leap year test 

da tememenerence 

ending dare — 

counting variable 
Se date 
daiGemeincerence 
nautical pps tion coord. 
endingsdate — 

counting variable 
counting variable 
Perceneagc 

nautical position coord. 
counting variable 
counting variable 
Perceneage 

nautical position coomee 
starting date 
percéeneage — 

counting variable 
nautical position coord. 
datemaatterence 
nautical pes tee coord. 
encing date — 

counting variable 
counting variable 
percentage | 

nautical position coord. 
counting variable 
counting variable 
peteencage: | | 
nautical position coord. 
starting date 
percemeage | 

nautical position coord. 
date ‘emt terence 
starting date 
percentage 

perceneage | 

summation variable 
counting variable 
pereeneaqe 

percentage 

summation variable 
starting date 

counting variable 

menu variable — 
average alongside time 
coune te variable 

date tdieterence | 
time computation variable 
ending date 


maximum 
maximum 
maximum 
maximum 
maximum 
minimum 
minimum 
minimum 


alongside time 
on scene Gime 
search timems 
total case time 
towlng time. 
alongside time 
on scene time 
search time 





Used In 


sartimes.prg 


smboatrp.prg 


startup.prg 


utlmain.prg 
vessel.prg . 


violfreq.prg 


mintttim 
mintwtim 
oscavg 
osdate 
ossum 
ostime 
ostimes 
schavg 
schtimes 
strtdate 
sutdate 


timehour 
totavg 
totsum 
tottimes 
towavg 
towsum 
towtimes 
uwdate 
uwtime 
datediff 
enddate 
inside 
obslat 
obslong 
outside 
strtdate 
totbrds 
chances 
Coun. 
username 
userpass 
validusr 
prckit 
anytype 
choice 
endltr 
legalch 
legaltyp 
legaluse 
Merdiff 
numrows 
SCme Lier 
eypcnole 
EypeTest 
usechoic 
usetest 
datediff 
enddate 
pct54 
pcetS4tmp 
pct5s5 
pctS5Stmp 
peLS& 
pctS6tmp 
57 


Det 
pct57tmp 
CctooEm 
BctS9 


Set SOMES 
pct60 


integer 
Peas 
integer 
date 
date 
tame 
real 
hea 
real 
real 
real 
integer 
real 
neal 
integer 
date 
time 
integer 
date 
iiiee Geir 
real 
real 
at eer 
date 
nt e Ger 
integer 
integer 
TERE 
text 
GExe 
Intecder, 
Céexc 
Cegae 
Eeaac 
tere 
Cesc 
text 
integer 
integer 
texte 
tert 
tec 
Ceet 
tezt 
integer 
date 
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Description 
minimum total case time 
minimum towing time 
average on scene time 
on scene date. 
summation variable 
Unsscene E1me 
counting variable 
average search time 
cGumtig variable 
starting date 
Sar unit moored date 
sar unit moored time 
comparison variable | 
time computation variable 
time computation variable 
average total case time 
summation variable 
counting variable 
oe towing time 
summation variable 
counting variable 
underway date 
underway time 
dates Garrerence 
encingedarer 
counting variable 
nautical position coord. 
nautical position coord. 
counting variable 
starting date 
counting variable 
chances to logon 
counting variable 
user name input 
user password 
flag variable 
menu variable 
flag variable 
Weenmecnolce input 
ending letter 
flag variable 
flag variable 
flag variable 
leteer derterence 
counting variable 
Stapling letter 
user moe choice 
vessel type 
user vessel use choice 
vessel use 
date difference 
ending date 
percentage 
percentage 
percentage 
percentage 
per centage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 
percentage 


Used In 


violfreq.prg 


-pct60tm 
Dctel 4 


pct6ltmp 
DEEoZ 
pct62tmp 
pct63 
pct63tmp 
pct64 
pct64tmp 
pct65 
pct65tmp 
pct66 
pct66tmp 
Dero? 
pct67tmp 
pct68 
pct6stmp 
Beto? 
Sera emp 
pee OC 
pct70tmp 
Dee 
pct71ltmp 
peti 
Pee? ZeEmp 
CEs Sem 
ree 74 p 
pea 4tm 
Bet7> P 
pet75tmp 
pct76 
pct76tmp 
Dec 
pct77tmp 
Bet S 
pct78tmp 
Betig 
Deus Jump 
strtdate 
uns69s 
uns70s 
uns71s 
uns72s 
uns73s 
uns74s 
uns75s 
uns76s 
uns77s 
uns78s 
uns79s 
unstotl 
unstot2 
unstot3 
unstot4 
unstot5 
unstot6 
unstot?7 
unstotal 
viol54s 
V1O155s 
viol56s 
viol57s 


v1i0158s 
v1io0l59s 


real 
real . 
real 
real 
date 
integer 
THE Gem 
Ieee t 
integer 
integer 
integer 
Ineegen 
integer 
integer 
integer 
Liege 
integer 
Tie cies 
Lneeger 
integer 
ee Gers 
Tee Gee 
LMLe Ger 
Tice den 
Lm eGelr 
integer 
integer 
Linee deg 
Tice geg 
integer 
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Des 
percentage 
Derecencage 
Ppepeeneace 
Pereeneage 
percentage 
percentage 
Bereencage 
percentage 
perecencage 
percentage 
peneenrage 
percentage 
percemeage 
DPEencemeage 
DEerceneage 
YeEeecieage 
percentage 
perecen Gage 
perce wage 
pereentacge 
Pépeeneage 
P@reenieage 
Peseemcacge 


cription 


Pebeceneage ~ 


Berceneage 
perceneage 
Bereencage 
Demeceneage 
perecntcage 
Dpereecmcage 
percencage 
percentage 
percemeade 
Bereenrage 
Pereentage 
percentage 
Bereeieage 
pereceneage 
percentage 
starting 


date 


counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 
counting 


variable 
variable- 
variable 
varlable 
variable 
variable 
variable 
variable 
variable 
varlable 
variable 


summation 
summation 
summation 
summation 
summation 
summation 
summation 


varlable 
variable 
variable . 
variable 
varlable 
varlable 
varlable 


total unsafe conditions 


counting 
counting 
counting 
counting 
counting 
counting 


variable 
variable 
variable 
variable 
variable 
variable 


—— : = = ¥ 


Used In Name Type Description 
violfreq.prg viol60s integer counting variable 
viol6él1s integer counting variable 
viol62s integer counting variable 
viol63s integer counting variable 
violé4s integer counting variable 
viol6é5s cL) mans i=g counting variable 
viol6é6s integer counting variable 
viol67s Ee ger counting variable 
viol6é8s integer counting variable 
vtotl integer summation variable 
vtotl0 Pee cet summation variable 
vtotll Peace r summation variable 
Ver lZ THE SCels summation variable 
vtotl3 integer summation variable 
vtot2 integer summation variable 
Vitor integer summation variable 
vtot4 eee n summation variable 
vtots taee cle tb summation variable 
vtot6é integer summation variable 
vtot7 integer summation variable 
vtot8 Peace ls summation variable 
vtot9 Ineeden summation variable 
vtotal integer total violations 
vsl_main.prg pick8& integer menu variable | 
vsloper.prg allrecs text user all records input 
allrecs text Diag ec GecOords ? 
ema Ltn Beat erates Le beer 
Der cara ie eeye Femee peemer ce hence 
numrows integer counting variable 
strtltr text starting letter 
vslowner.prg allrecs text tlag@ej salt recorde? 
allrecs text weer all reeords input 
endiltr bert enidangale tler 
Lendiset Leger Teco ali nerence 
numrows integer ‘counting variable 
SEC eer text starting letter 
ded | 


Data Entry | Edit Rules 


RULE 1 vslyear IN vessel fail 
or vslyear IN vessel ge 0 


Message:*** Invalid Vessel Year *** 


RULE 2. vslhp IN vessel fail 
or vslhp IN vessel ge 0 


Message:*** Invalid Vessel Horsepower *** 


RULE 3  vsiuse UN vesseisian 
or vsluse IN vessel eqa vuse IN boatuse 


Message:*** Invalid. Vessel Use *** 


RULE 4 vsitype IN vessel fail 
or vsitype IN vessel eqa vtype IN boattype 
Message:*** Invalid Vessel Type *** 
RULE 5 vsiprop IN vessel il . 
or vslprop IN vessel eqa proptype IN boatprop 


Message:*** Invalid Vessel Propulsion *** 


RULE 6_ vslhull IN vessel fail 
or vslhull IN vessel eqa hmattype IN hullmat 
Message:*** Invalid Vessel hull Type *** 


RULE 7_ vsleng IN vessel fail 
or vsleng IN vessel eqa ecomptyp IN engcomp 


Message:*** Invalid Engine Compartment Type *** 
RULE 8 _ vslfuel IN vessel fail 


or vsifuel IN vessel eqa fcomptyp IN fuelcomp 


Message:*** Invalid Fuel Compartment Type *** 
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RULE 9_ vslconst IN vessel fail 
or vslconst IN vessel eqa constype IN constr 


Message:*** Invalid Vessel Construction *** 


RULE 10. cmeyear IN vessel fail 
or cmeyear IN vessel ge 0 
Message:*** Invalid CME Decal Year *** 


RULE 11 vsimasts IN vessel fail 
or vslmasts IN vessel ge 0 


Message:*** Invalid No. Vessel Masts *** 


RULE 12 © sailno IN vessel fail 
or sailno IN vessel ge 0 


Message:*** Invalid Sail Number *** 


RULE 13 hicolor IN vessel eqa shade IN colors 
and trcolor IN vessel eqa shade IN colors 
and slcolor IN vessel eqa shade IN colors 
and cbcolor IN vessel eqa shade IN colors 
and dkcolor [IN vessel eqa shade IN colors 


iMessage!*** Invalid Color Entry *** 


RULE 14. vsltons IN vessel > = 0 


fe de Ste 
a* fae ¢ge 


Message:*** Invalid Vessel Tons *** 


RULE 15 vsllenft IN vessel > = 0 
Message:*** Invalid Vessel Length (ft) *** 


RULE 16. vsillenin IN vessel > = 0 
and vsllenin IN vessel < = 12 


Message:*** Invalid Vessel Length (in) *** 


RULE 17. vslvalue IN vessel > = 0 


Message:*** Invalid Vessel Value *** 


2738 


RULE 18 cmedecal IN vessel fail 
or cmedecal IN vessel = Y 
or cmedecal IN vessel = N 
Message:*** Invalid CME Decal Entry [Y/N] *** 


RULE 19 _ opstate IN operator fail 
Or opstate IN operator eqa abbrev IN states 
or opstate IN operator eqa symbol IN nations 


Message:*** Invalid Operator State/Nation *** 


RULE 20 opzip IN operator fail 
or opzip IN operator > = 0 


Message:*** Invalid Operator Zip Code *** 


RULE 21 optelno IN operator fail 
or optelno IN operator > = 0 


Message:*** [Invalid Operator Phone Number *** 


RULE 22  opcourse IN operator fail 
or opcourse IN operator eqa coursetp IN courses 


Message:*** Invalid Operator Course Code *** 


RULE 23 ownzip IN owners fail 
or ownzip IN owners > = 0 


Message:*** Invalid Owner Zip Code *** 


RULE 24  ownstate IN owners fail 
Or ownstate IN owners eqa symbol IN nations 
or ownstate IN owners eqa abbrev IN states 


Message:*** Invalid Owner State/Nation *** 
RULE 25  owntelno IN owners fail 


or owntelno IN owners > = 0 


Message:*** Invalid Owner Phone Number *** 
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RULE 26 © sarday IN sar fail 
or sarday IN sar eqa dayabbr IN days 
Message:*** Invalid SAR Day of Week *** 


RULE 27 sarpobIWN sar > = 0 
Message:*** Invalid SAR POB *** 


RULE 28  sarlat IN sar > = 0.0 
and sarlat IN sar < = 90.0 


Message:*** Invalid SAR Latitude *** 


RULE 29 © sarlong IN sar > = 0.0 
and sarlong IN sar < = 180.0 
Message:*** Invalid SAR Longitude *** 


RULE 30. offshore IN sar > = 0 
Message:*** Invalid Distance Offshore *** 


RULE 31 immedsar IN sar = Y 
or immedsar IN sar = N 
or immedsar IN sar fail 
Message:*** Invalid Immediate SAR Entry [Y/N] ** 


RULE 32 winddir IN sar > = 000 
and winddir IN sar < 360 


Message:*** Invalid Wind Direction *** 


RULE 33  windspd IN sar > = 0 


Message:*** Invalid Wind Speed *** 


RULE 34 _ visdist IN sar > = 0 


Message:*** Invalid Visual Distance *** 


us 


RULE 35 clouds IN sar > = 0 
and clouds IN sar < = 10 


Message:*** Invalid Cloud Percentage (Tenths) ** 


RULE 36. ceiling IN sar > = 0 
Message:*** Invalid Cloud Ceiling (Feet) *** 


RULE 37 seas IN sar > = 0 
Message:*** Invalid Sea Height (Feet) *** 


RULE 38 swells IN sar > = 0 
Message:*** Invalid Swell Height (Feet) *** 


RULE 39 _ epiccode IN vslintel eqa epicno IN epic 
or epiccode IN vslintel fail 
Message:*** Invalid EPIC Code Entry *** 


RULE 40 _ folderno IN sar nea folderno IN sar 
Message:*** Duplicate SAR Folder Number *** 


RULE 41. bono IN boarding nea bono IN boarding 
Message:*** Duplicate Boarding Report Number *** 


RULE 42 vslpob IN boarding > = 0 
Message:*** Invalid Boarding POB *** 


RULE 43  adultpfd IN boarding > = 0 
Message:*** Invalid Adult PFD/POB *** 


RULE ‘44 childpfd IN boarding > = 0 
Message:*** Invalid Child PFD/POB “** 


RULE 45 owstatus IN boarding eqa ostattyp IN status 
or owstatus IN boarding fail 


Message:*** Invalid Owner Status *** 
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RULE 46 _ obsstate IN boarding eqa abbrev IN states 
or obsstate IN boarding eqa symbol IN nations 
or obsstate IN boarding fail 


Message:*** Invalid Boarding State/Nation *** 


RULE 47 obslat IN boarding > = 0.0 
and obslat IN boarding < = 90.0 


Message:*** Invalid Boarding Latitude *** 


RULE 48  obsilong IN boarding > = 0.0 
and obslong IN boarding < = 180.0 


Message:*** Invalid Boarding Longitude *** 


RULE 49 boday IN boarding eqa dayabbr IN days 
or boday IN boarding fail 
Message:*** Invalid Boarding Day of Week *** 


RULE 50 weapons IN boarding > = 0 


Message:*** Invalid Number of Weapons *** 
RULE 51 _ bodist IN boarding eqa distno IN district 
or bodist IN boarding fail 


Message:*** Invalid Boarding District *** 


RULE 52 vslhin IN vessel nea vslhin IN vessel 


Message:*** Error: Duplicate Vessel HIN *** 


we 


APPENDIX D 
MODULE FUNCTIONAL DESCRIPTIONS 


The US Coast Guard Group Monterey SARELTIS prototype design includes 
eleven sets of application programs that access one central relational database. These 
sets of application programs include: 

e SARSYS.PRG -- Main Menu Programs 

e SENTRY.PRG -- Data Entry Menu and Programs 

e MODIFY.PRG -- Data Modification Menu and Programs 

e SREPORTS.PRG -- Reports Master Menu Programs 

e INTRPTS.PRG -- Intelligence Reports Menu and Programs 

e BRDRPTS.PRG -- Boarding Reports Menu and Programs 

e SARRPTS.PRG -- Sar Reports Menu and Programs | 

e VSLRPTS.PRG -- Vessel Reports Menu and Programs 

e PRSRPTS.PRG -- Personnel Reports Menu and Programs 

e SQUERY.PRG -- Database Query Menu and Programs 

e SUTILITY.PRG -- Utilities Menu and Programs - 
Each application program set consists of a master menu block and numerous modules 
that perform specific functions. The modules and menus are called Command and 
Menu files within the R:base 5000 programming language. Functional descriptions of 


each module, grouped by application program set, are contained in this appendix. 


| “SARS YSt2NG 


K(RAKKKAKAKKAAKKAKKKKKKAKKKAKKARKKKKRAARKKAKAKKKARKAKKKKAKKKAKKKKKARKAKKKEKAKKK RAK 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


MAIN MENU and STARTUP APPLICATION 


Author: Jom D. Alien, LT, USCG 
Heidi R. Lang, LT, USN 
AUGUST 1987 


RK (AKAKRARKKAKAKAKKARKAKKKAKKAKKRKKKAKAKKRKRKKAKAAKKKKKA AK RAK RKAAK KK RK AARRRKA KAKA KKERRKK 


Zee 





KH ( RRAKKKKKKAKKAKK RK AK KKAAKRKAAKKAAKKKAK KKK AK RRA KKK KAKRKK KKK AKER KAA AK KK 


Program: 
Author: | 

Date, Written: 
Description: 
Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Access Input Module 

J D Allen and H R Lang 

August 1987 

This program calls the input master menu. 
none 

none 

none 

none 


K (KAKAKARKKKAKKK KK KK RKKKKKKA KKK KK AKAKEKKKA KKK KAKA RAR RAE KARA RAK KAA AK KK KKK 


Program: 
BMEDOY : 

Bees Written: 
Pescription: 
Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Access Modify Module 

J D Allen and H R Lang 

August 1987 . 

This program calls the modify master menu. 
none 

none 

none 

none 


KR (KARKKKKKKKKKKKKKAKKRKAKAKKKKAKKKKKKAKRKKK KK RAK ARK KKK KAKRKARARRKKKKKKKKK KKK A 


Program: 

BUC MOT: 

Pace weltten: 
Deeeription: 
Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Access Query Module 

J D Allen and H R Lang 

August 1907 

This program calls the query master menu. 
none 

none 

none 

none 


KH (KKKKAKKRKKAKKKKAKAKKKKKK KKK AKKKKKAKKRKKKAKRKKAK KKK RAKAKRK KK KKKRKAKRR KKK AKKRK AK 


Program: 
BUCHOr :— 

Bare Written: 
eseription: 
Tables Used: 
Temp Tables: 
Reports: Used: 
Forms Used: 


Access Reports Module 

J D Allen and H R Lang 

August 1987 

This program calls the reports master menu. 
none 

none 

none 

none 


K ( KAKKARKKKKKRKAKAKRKKAKRKRKRKKRKK KK KKKAK KAKA KKRKERKRKKKKKKKAKAKKAAKRKKKKKKKK RK K 


Program: 
BUCHOY: 

Ueeee written: 
Bescription: 
Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Access Utilities Module 

J D Allen and H R Lang 

August 1987 a 

This program calls the utility master menu. 
none 

none 


K (RARKKAKKKAKRKKAKKAKKKA RKKAKKKAKKAKKKKEAKRKKARKAKERKKRARKKAKAKERKRRKKRKKERKRRKK 


Program: 
Author: | 
Peace, Written : 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Access Ad Hoc Module 

J D Allen and H R Lang 

August 1987 

This program allows the user to exit the 
menus to the R:base 5000 command prompt to 
execute ad hoc queries. 

none 

none 


ARRKKREKRKKKRKAKRKK RK KRKKKKKKKKKAKKKKKKKKKKKAKKKKKKKKKKAKKRKARKKKRKAKKAKK KKK K | 
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2. SENTRY.PRG 


K (AKARKAARRARRKAKARKAKARA RAK RAK KAKKAK AK ARK KAARKKARKK KAKA KAKRKKARKARKRKAKKKKKARKK 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


INPUT MASTER MENU and INPUT PROGRAMS 


Author: Jon D.. Alien, LT, UsGe 
Heidi R. Lang, LT, USN 
AUGUST 1987 


KR (KAAAKRKKAKAAKARKKKAKAAKKRKKAKAKKRKAKAAKKRKRAAKAKKRRRAARRKKARRRRKARRRRRAKAKRKK KKK 


Program: Add Sar 

Author: H R Lang and J D Allen 

Date Written: July 1987 

Description: This program allows the user to input 
sar case information. 

Tables Used: vessel, sar, owners, operators, owvsl, opvsl 

Temp Tables: none 

Reports Used: none 

Forms Used: sarforml, sarform2, sarform3, sarform4, 
sarform5, sarform6, sarform7, sarformé, 
sarform9 


KR ( KAKRARKAKAKKKRKAKAKRKRKKAK AKER RKAARRKRK AAA RRKRAKARRRRKRAKA ARK KAKA RRKRRKKRRKKK 


Program: Add Sar with Boarding 

Author: H R kon and J D Allen 

Date Written: Juiyelcsias = 

Description: This pregram allows themuser to enter: saz 
and boarding information. 

Tables Used: boarding, vessel, owners, operator, owvsl, 
opvsl, sar 

Temp Tables: none 

Reports Used: none 

Forms Used: cg4100al, cg4100a2, ¢cg4100a3, cg4100a4, 


cg4100a5, cg4100a6, cg4100a7, cg4100a8, 
cg4100a9, sbdforml, sarforml, sarformé, 
sarform9, sarform5 


KR (KARKAKKKAKAKAKAKKKAKAKAKKAKKAKKRKRRKKAA ARK RKAAKAKRRRKAARRKRAKRRRKRARKRKAKAKKRRKK 


Program: -- Add Sar Units 

Author: Hae Lang and J D Allen 

Date Wiss tieeni: August 1987 

Description: This program allows the user to input sar 
Und t Siaica. 

Tables Used: Sar, sarunits 

Temp Tables: none 

Reports Used: none 

Forms Used: sarformé 


KR ( AKAKRRAKAARKKKKRKKAKAKK KK KAKA ARKK KARR RKKK AAR RK AAKKKK KAKA RRRR KAKA RKKKRRRRKKK 
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Program: Add posed 

Author: | H R Lang and J D Allen 

Date Written: July 1987 

Description: This program allows the user to input 
boarding information. 

Tables Used: Deas vessel, owners, operator, owvsl, 
opvsl, 

Temp Tables: none 

Reports Used: none 

Forms Used: cg4100al, ¢cg4100a2, cg4100a3, cg4100a¢, 


cg4100a5, cg4100a6, cg4100a7, cg4100a8, 
cg4100a9, sarform5 


K (KRKAKKRKARKARARKRKRKRAK RRA AKRARKRKRRARKRKRRR AKER AK RRK RK AAKKKRKRKRRKE RK AA K 


Program: Add Owner 

Author: H R Lang and J D Allen 

Race Written: July 1987 

Beacription: This program allows the user to input 
additional owner information. 

Tables Used: vessel, owners, owvs 

Temp Tables: none 

Reports Used: none 

Forms Used: ownrmodl, ownrmod2 


RAKKAKAK KARA KK RK KARA KKK RRA RKK AKAIKE RIK RK KIRK AKAIKE KERR KERERE REE ) 
SeevtODIFY.PRG 


KR (KAKKKAKKRKKAKAAKKKARKKRKKAKAKKRKKRKKKKRKAKARKK AK RKRRKKARRKARARRRRRAARRRKRRA RR K 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT’ of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


MODIFY MAIN MENU and APPLICATIONS 


Author: Jom Dgallem LL, sUacc 
Heidi Rv Lang, LT, USN 
AUGUST 1987 


KR (KRAAKARRKRKAKKRRRRKKKKRRRKRKKAKRRRRRRKKRRRRRRKRARRRRRRKKRRRRRRRRKARKRRREK 


Program: Modify Sar 

PEnOr : HR Ban and J D Allen 

Dace Written: August 1987 

Description: This program allows the user to modify 
sar information in the database. 

Tables Used: Sar, vessel 

Temp Tables: none 

Reports Used: none 

Forms Used: sarmod 


K (KAKKKKKKKRKKKRKKKRKRAKK RAK RK AKKKR KKK RK AKRRRKRRERKRRRKAKRAAKRAAARRA ARR AKER 
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Program: Modify Boarding 

Author: | H R Lang and J D Allen 

Pate Wratten: August 1987 

Déescrieeron: This program allows the user to modify 
boarding information in the database. 

Tables Used: boarding, vessel 

Temp Tables: none 

Reports Used: none 

Forms Used: bomodl, bomod2, bomod3 


K ( KAKKRARAKAKKKAAKAKKRKAKAKKRKRKK AAA AKA AKKAK RAK AKA AKKRKK KKK AKRAAKAKRRRKAAKKKAKK 


Program: Modify Vessel 

Author: H R Lene and J D Allen 

Datenyierceer. August 1987 

Description: This pocgean allows the user to modify 
vessel information in the database. 

Tables Used: vessel 

Temp Tables: none 

Reports Used: none 

Forms Used: vslmodl, vslmod2 


K (AKAKAKAAAKRKAKKKRKKAA KKK RA RKKK KKK KKK KAKKKK KKK KKK KKK KKKKKAKKKKKKKAKRKKKK 


Program:: Modify Owner and Operator 

Author: H R Lang and J D Allen 

Daeew written: August 1987 

DeSchi pedo This Bueayem allows the user to modify 
owner and operator information in the 
database. 

Tables Used: owners, operator, opown 

Temp Tables: none 

Reports Used: none 

Forms Used: ownrmodl, ownrmod2, opermodl, opermodz 


KR (AKRAKKKAKRAAKKKAKK KKK RKKKKRKKRKKAR KKK RKKKRKKRRRAKRKAAKK A AK RAK KKK RRKEREKKK 


Program: Modify Sar Unit 

Author: | H R Lang and J D Allen 

Pace Written: August 

Description: This program allows the user to modify 
sar unit data in the database. 

Tables Used: sar, sarunits 

Temp Tables: none 

Reports Used: none 

Forms Used: sunitmod 


K ( KAKAKAA KAKA KKK RAKKKRRKKAAKKKKAKKAAKKKAAKAAKRKK AKA KK RKKA AK ARR RKKAAKRKAAKRRKK 


Program: Modify Vessel HIN 

Author: | H R Lang and J D Allen 

Pate sWeieeen : io gh her sl Sis | 

Bescrrmcren: Tes program 3. oye, team to modify 
vessel hull identification numbers in 

the database. . 

Tables Used: vessel, sar, boarding, owvsl, opvsl 

Temp Tables: none 

‘Reports Used: none 

Forms Used: vhinform 


K (KAAAKKARKAAKKKKKRKAKAKKKAKAKKKAKKKAKKKAKKAKKAKKKAKAKRKAKK RK RK AAA RAAKAAKRK 
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Program: Ae and ook Vessel Intelligence 

Author:. Sust 1987 D Allen 

Pater Written : 98 

Description: This pro on allows the user to input 
and modify vessel intelligence 
information. 

Tables Used: vslintel 

Temp Tables: none 

Reports Used: none 

Forms Used: vintform 


HK (KAKKKAKAKKKAKKAKKKKAK RAK RK AKKKKKKKAEK KKK KKK RK RK KKK KEK RR ARK KEK KKK RK KKK ARK KK 


Program: Add and ays ona Intelligence 

PCHOr : HR zoos an en 

Pace Written: August 198 

Description: This ite a allows the user to input 
and modiry personnel intelligence 
information. 

Tables Used: perintel 

Temp Tables: none 

Pepomcs Used: none 

Forms Used: pintform 


eee EPORTS.PRG 


KR (KAKKKKRRERKKKKKRRRKKK KKK RRR KK KERR RRKKAK KERR RRA KK KK RERKK KKK KARR RRR RK KERR 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


REPORTS MAIN MENU APPLICATION PROGRAM 


Author: Jon.D. Alien, LT, USCG 
Heidi R. Lang, oe on 
AUGUST 1987 
: 
H (KRRKKAKAKRRAK KR KKK RA RKRAK RRR RK RK RR AKA RK RR AKER KAKA RRR RARER AKER 


Program: oa eee Reports 

Author: D Allen and Lang 

Degee, Written : aiguet mo7 

Description: This program calls the intelligence reports 
master menu and application programs. 

Tables Used: none 

Temp Tables: none 

Reports Used: none 

Forms Used: none 


KH (KAKKRKKKKRKKKKKKKKKKKKKK KK RK AKER KK KKK KK KKEKKKKKKERKK KERR RRRKKERK RK KK 


Program: Access Boardin Rep ee 

BUENOK: - JD” AveLen are ang 

Barce WoeilGlen: August 1997 

Description: This program calls the boarding reports 
master menu and application programs. 

Tables Used: none 

Temp Tables: none 

Reports Used: none 

Forms Used: none 


HK (RRKKARKKKKKKKKKKKKKKKKKKKKKKKERKKKKKRERKK KK KKK K KKK K KER RKKKAK KR RR KK KK 
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Program: 
BUEOr =. 

Date Written: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Access Sar Reports 

J D Allen and H R Lang 

August 1987 

This program calls the SAR reports master 
menu and application programs. 

none 

none 

none 

none 


K (KKKKKKKKKKKKKRKKKK KKK KKK KK KKAKKKKKKKK KKK KKKKAKKK RKKKAKKKKKKAKKKKKKAKRKKKK 


Program: 
Autnor: | 
Date Wretten: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Access Vessel Reports 

J D Allen and H R Lang 

August 1336/7 

This program calls the vessel reports 
master menu and application programs. 
none 

none 

none 

none 


HK (KKAKKRKAKKKKKRKKKKKRKKKRKKKKKK KKK RKKKRKK RRR KKRRKKK RK KK KKKKKKKERKKK KKK KKK 


Program: 
PAUSES co, 
Date Writien: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Access Personnel Reports 

J D Allen and H R Lang 

August 1987 

This program calls the Beene! reports 
master menu and application programs. 
none 

none 

none 

none 


RKAKKKAKKKKKAKAKKKK KKK KKK KKKKK KKK KKKKKKKKRKKKKAKKKKKKAKKKKKKAKKKKKKKKKEKRKE RF ) 


). INGER. PRG 
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US COAST GUARD GROUP MONTEREY 


SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 


INTELLIGENCE SYSTEM (SARELTIS) 


INTELLIGENCE REPORTS MENU and APPLICATION PROGRAMS 


Author: Jon D. Allen, LT, USCG 


Heidi R. Lang, LT, USN 
AUGUST 1987 


KH (KAKAKKAKKKKAKKKKKKKAKK KKK KKKK KK RKKK RK RRKKAKKKRKRKKRRRKKK RK RKKK RRR AER 


Program: 
AMENO =) 
DAceeWr 2 igen : 
Desecripticm. 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Personnel Intelligence Dump Program 

J D Allen and H R Lang 

August 1987 i 

This program performs a listing by date and 
re alphabtic search of thosespersonnel=in 

the table PERINTEL (personnel intelligence). 
perintel 

persum 

perintel 

none 


HK (AAAKAAKKAKKAKKKKKKKKKAKAKKKKKKKK KK ARK KARR KKK KK KKKKRKKRREKRARK RRR KRKER ERK 
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Program: BRC later eeneg Analysis 

Author: | J D Allen and H R Lang 

Bate Written: August 1987 
Description: Performs a dump of all vessels in the 


VSLINTEL table within a specified time 
period. Four reports are generated 
providing listam@se: by EPIC Code, by 
stolen vessels, and by intelligence 
remarks, and a frequency breakdown 

and analysis Or@EPIC Gacdes. 


fables Used: Vedantel 

Temp Tables: epicsum, stolesum, intelsum, epictmpl, 
epieimp2, ep2actmp. . 

Reports Used: epicsum, stolesum, intelsum, epicrpt 

Forms Used: none 


KR ( AARKKKKAARKKAAKKKK RARAAAAKARAKK AKA KKK KA RAKKK RK RK KK AKAKK AKA KAKA AK AKK RAK RK 


Program: Violation Vessel Profile Intelligence 

Author: JoD Allen and’ H R Lang 

Date Written: August 1987 . . 

Description: This program examines vessel Ep oaceeds to 
Create da protastesotevesse! whach violate 
Specitic laws Guming a specified time periods 

Tables Used: boarding, vessel, viols, boattype, boatuse, 
Gemstr, engcomp, fuélcomp, hulimat, bodtprop 

Temp Tables: bosum, vslsum, violsum, vslmo, 


summaryl, summary2, summaryv3, summary4, 
summary5, summary6, summary7, temp 


Reports Used: vtypemo, vusemo, vconstmo, vengmo, 
vfuelmo, vhullmo, vpropmo, vlenftmo, 
vyearmo 

Forms Used: none 


RAARKAKAKKAKAKKAKAKARAK KARR ARK RRR AKA AAR RKAKER RAK RRARKKARAKARKKEK EAR ) 
See RDRPTS.PRG 
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US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


BOARDING REPORTS MENU and APPLICATION PROGRAMS 


Author: UCiey. elven, Gl UoCG 
Heidiek. Lang, LI, USN 
AUGUST 1987 


HK (KKAKKKAKAAKAKKAKKKK AK KK KKK KK KK KKK KKK KKK KK KKK KK KKKK KKK KKRKAKAKKKKAKRK KK 


Program: Violation / Unsafe Condition Frequency Analysis 

BUEN OK. @ DeAllen and HR Lang | 

Bare Written: August 1987 

Peect Lpit lon: This program performs a statistical analysis 
of boarding violations and unsafe conditions 
Within a specified time period. 

Tables Used: Booed 

Temp Tables: rrachart, temp 

Reports Used: violfreq, unsfreq 

Forms Used: none 


KR ( ARAKRAKAKAKAKKKARKKKKRAKAKAKKKAKKARKAKARAKKKKAKKAKAR KAKA KKK AKKKARKKKKREKARRAK A 


£5) 





K (AKRKKAKKKKAKKKKKKARKKAKKKRRKKKRRKKKKAKKKRRKAKRRKKAK RRA KAKRKKKERERKRKRKKAKARKKK 


Program: 
Autnor: 
Date Written: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Boarding Summary Listing Program 

J.D Allen and H R Lang 

August 1987 a 

This program, perfommé a Hasting of the 

BOARDING table during @speerried time 
eriod. Tne report 1s,sorntmed by date 
e:0be Deigg prinuca. 

boarding 
osum 

boarding 

none 


KR ( KARKARKKARRAAKKKARKRKAKK RA AKKRAKRKK RK RAARKAAKRKRRKRAARKAKARKAARKAKRKARKKKRKKAKR 


Program: 
RUE. 
DaiGelyi ne Len 
Deserta Lon-: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Boarding Major Grid Area Frequency Program 

J D Allen and H R Lang 

AUGUS Care G7 — 
Thais program performs a statistical analvems 
of Boardings to determine percentage of Cdsee 
Which occur in areas specified by coordinates 
found in the MAJAREA table during a specified 
Eane Oe toca 

majarea, boarding 

bosum, positfrq 

bomajor 

none 


HK ( KARKKKAAKKARKAKKAKAAKKKAKAAKRKRKRKKKKRKAARKAKARRKRKRKRKAAKARARKRKRKRKKRAKAAAKARARKK 


Program: 
Autnor: 
Date Written: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Boarding Minor Grid Area Frequency Program 
J D Allen and H R Lang 

August 1987 ae 
This program performs a Stata@stical anawyaws 
of Boardings to determine percentage of 
cases which occur in a specified location 
defined in the MINAREA table during a° 
specified time perice- . 
boarding, minarea 

bosum, positfrg 

bominor 

none 


KR ( AAAAKKARKAKKAKKAAKAKK KK RARER AAKRAKKARAKKRKAAKRRKARRKARRKAKAAKRAARRRARAKARRKKRK 


Program: 
BUEN ORe 
DAS Wierer en: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Boarding Small Boat Area Frequency Program 

J D Allen and H R Lang 

August 1987 | pea ' 
This program performs a statistical analysis 
of Boardings to determine percentage Of Cdasea 
which occur in the small boat operating as 
defined by Coast Guard Group Monterey's 
OPLAN during a specified time period. 
boarding 

temp, bosum 

smboatrp 

none 


KR ( KAAKAARKAAKARKAKAKKKRKARKKAKKRARKAKAK AK ARKKAKRARKKAKA AKA RKRAAKRRRKAAARKKKKAAKK 
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K (RRAKKKAKKAKKKAK KKK KKAKKKKKKRKK RK RAK RKKAKK RK KKK KK RK RR KKKKKKRKAKRRK KK KKK K 


Program: Courtesy Motorboat Examinations (CME's) 
Statistical Analysis 

Author: | J D Allen and H R Lang 

Dacor’. Hen : August 1987 _ 

Description: This program performs a statistical analysis 


of vessels that were boarded to determine 
the frequency of CME's and their year of 
issue during a specified time period. 


| Tables Used: boarding, vessel 
Temp Tables: bosum, vslsum, bovslsum, temp 
) Reports Used: cmerpt 

Forms Used: none 


HK (AKAKKARARKRKKKKKKARKKKKKAKKKKKKKEKEKKAKKEKKKAKAKKKKKKKKKKKAKKRK ERK KKE KK 


Program: Daytime vs. Naehteene Frequency Analysis 

Author: J D Allen and H R Lang 

Date Written: August 1987 — . 

Description: Tais pron performs a statistical analysis 
: of SAR cases and Boardings to determine 


percentage of cases which occur in the | 
daytime vs those that occur at night during 
a specified time period. 


| Tables Used: sar, boarding 
| Temp. Tables: sarsum, bosum, temp 
Reports Used: daynight 


Forms Used: none 


KAKAKAAAKKARKAAKAK AKA RKAKK RK AK RK KKK RKAK KAKA KKK KAKA KK AKAKKKKAEK KEK AKARKE ) 
PeeeenRPTS.PRG 
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US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
Ey INTELLIGENCE SYSTEM (SARELTIS) 


SAR REPORTS MENU and APPLICATION PROGRAMS 


Author: Jon Dewiaalien, LT, USCG 
Heidi R. Lang, LT, USN 
AUGUST 1987 


K ( KAKKRAAKAKKKKAR AAR AAKKRAKKAAKKKAKKAKKKAKKKKKKKKKKAKRKKKK RAE RK KARA RAAKAKAK 


Program: SAR ie Grid Area Frequency Analysis 

Author: | J D Allen and H R Lang 

Date Wrmeeer: August 1987 

Description: This Br ogee pense a statistical analysis 
of SAR cases to determine percentage of 


Came Woolen ocGur am specititéd locations in 
the table MAJAREA during a specified time 


period. 
Tables Used: Majarea, sar 
Temp Tables: sarsum, positfrq 
Reports Used: sarmajor 
Forms Used: none 


K (KRKKKRRKKKKKKKKAKKKKKKKRKKKKKK KKK KKEKKKKRKRKKAKKKRKKKRKRKRKKKAKRRKKKRKRKKKKRK KK 


Zo 
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Program: 
Author: 
Dave Wr listen: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


SAR Minor Grid Area Frequency Analysis 

J D Allen and H R Lang 

August 1987 . 2 
This pues een pee a statistical analysis 
of SAR cases to determine percentage of 
cases which occur in Locations specurited by 
coordinates contained in the table MINAREA 
during a specified tame’ pemnod. 

sar, minarea 

sarsum, positfrq 

sarminor 

none 


K (AKAKKRKKAKKKKKKKAKRK KK KKK KK KKK KAKAKK RK KKK AKKKKRKRKKRRKKK KKK RKKKRKRRKKKKKK 


Program: 
BUEaOr 3) 
Date Wirineee§: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


SAR Case Small Boat Area Frequency Program 

J D Allen and H R Lang 

August 1987 om 
Tues proguam peri omns a statistical analysis 
of SAR Cases to determine percentage of 

cases which occur in the small boat operating 
as defined by Coast Guard Group Monterey's 
OPLAN during a specified time period. 


sar 
temp, sarsum 

sarsmbt 

none 


K (RAKKAARKKKKKKRKKAKKKK KKK A KKKAKK KK RRKAKKKKRKRAAKKKAKRKKKRARKKKRKKKRKKKRK K 


Program: 
BUcnoOn >. 

Date Wieecen : 
Desecriptron: 


Tables Used: 
Temp Tables: 


Reports Used: 
Forms Used: 


SAR Case Units Time Expended Frequency 

J D Allen and H R Lang 

August 1987 a . 
This preguan per (ous a statistical analysis 
of SAR cases to deteuminemtotadl time 
expended, times Cosbelngeonescene, tame CO 
being alongside, tame involved in seameiiese 
and time involved in towing. These times are 
analyzed to produce totals, avemagjes as 
minimums, and maximums for a specific time 
period. 

sarunits -_ 
sartimel, samtimez )santimes me sagiames. 
sartimeS, temp 

sartimes 

none 


K ( KRKAKKKAKKKKKK KKK KKK KKK KKK KRKKKKKKRKKK KK KKK KKK AKKAKKRERARKEKKKK A 


Program: 


Author: | 
Date, WritGene 
Desc raaeron- 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


SAR Days, SAR Months, SAR Years Frequency 
Analysis 

J D Allen and H R Lang 

August 1987 Nae 
This paaeeen per oun a statistical analysis 
of SAR cases to determine percentage of 
cases which occurred on specific days of the 
week, months of the yeas and years during a 
specified time period. 

sar 

sarsuml, sarstat, sarsum, temp 

sardates, sardays 

none 


K (ARKARKKKAKKKKRKKAKKAKKKKAKKKKKRKAKKKAKRKAAK KKK RKRAKKRKRKR ARK AKKKKRKAKRKKK 


Zoi5 


H (KAAAKKAAKKAAKARRAKRERAKERKAKRRKKRRAKKER AKER AK RERKARERE KER RR ERRRRRRREEERK A 


: Program: 
BEEN OM: 

Date Written : 
Dé@éscription: 


| Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Daytime vs. esneeene Frequency Analysis 
J D Allen and H R Lang 

August 1937 _ 
This peed: an performs a statistical analysis 
of SAR cases and Boardings to determine 
percentage of cases which occur in the | 
daytime vs those that occur at night during 
a Speeltted time wperiod. 

sar, boarding 

sarsum, bosum, temp 

daynight 

none 


| K (KAKKKKRRKRKKKKKARKKKKARKKAK RAK RAAKRAARARKKAKK ARK AEKAAKAKARRARK ARERR ARK 


Program: 

BaehnO Ke. 

Uae Written: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


SAR Summary ase Program 

J D Allen and H R Lang 

August 1987 

This program performs a dump of the table SAR 
O© these Sak cases that occurred during a 
Specified time period. The listing is sorted 
by date prior to being printed. 

sar 

sarsum 

sar 

none 


HK (KAKKKKAKAKRKAKKKKKRKKKK KAKA KKK AKKKKAKKAAKRKKAKKKAAK KKK KA KKKKAKAEKKERAKKAKKK 


Frogram : 

AULAOY : 

Meaeemnritten: 
| Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Immediate SAR Frequency Program 

J D Allen and H R Lang 

August 1987 , 
This program performs a statistical analysis 
Ou neGdscomeomcecenmine percentage Or cases 
which are of immediate nature during a 
specifsaed time period. 

sar 

Sarsum, temp 

immedsar 

none 


RAEKKKEKKKAKKKKKAKKKAKARKRKAKRKAARRRKAAREKKKA ARK RRARRKKKAAKRRRAAKRERKRARE K ) 


oy yer yO. RG 
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S COAST GUARD GROUP MONTEREY 


U 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 


INTELLIGENCE SYSTEM (SARELTIS) 


VESSEL REPORTS MENU and APPLICATION PROGRAMS 


Author: Jon D. Allen, LT, USCG 


Heidi R. Lang, LT, USN 
AUGUST 1987 


KR RRAAKKKAKAKKKKKKEKRKKKKEKRKKKER KEK RARER KKRERKRERKEKKKKKERRERKRERKKRERRKKRKKRRK KK 
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KR (KKKKKKAKRKKKKAKKKKKKKKKKAKKAKAKKKKAKAKKA AKA KKARRKKAKAKKAKKKAKKKARKKAKKKKAKAKKKRK 


Program: Vessel Summary Listing Program 

Author: | J D Allen and H R Lang 

Dater Nn tren: August 1987 

Deseriperen : Thais Prod: sine oe a dump of the VESSEL 
table. isting entries are selected by 


vessel type, vesoei use ecucamey «cn 
alphabetic search. 


Tables Used: vessel, boattype, boatuse 
Temp Tables: vslsum, vslsuml, vslsum2 
Reports Used: vessel 

rorms Used: none 


K (RAKKRRAKKKKAKKAKAKKAAKKAAKAKKRKARKKKAAKKK ARK AAKRAKKKAARRKARKKARERARKKK RR AK 


Program: Vessel - Owner ai Program 

Author: | J D Allen and H R Lang 

Deecw tr ten: August gage? — 

Description: This Bagea performs a listing sorted by 
vessel name of those vessels which are 


owned by a Spec ae group of owners. All 
of the vessels ian the Veesnimeable nay oe 
selected or only a group  speerried in an 
alphabetic search. 


Tables Used: owvsl, owners, vessel 

Temp Tables: ownvsls, ownvslsl, ownvsls2 
Reports Used: vslowner 

Forms Used: none . 


HK (KARARRAKARAKRAKRKKK AA RKRKAAAKKK KAKA KAKA KKK AIR RKR RRA AARARK RR AARRKRRRKKARKKKKK 


Program: Vessel - Operator Dump Program 

Author: | J D Allen and H R Lang 

Date Written August 1ye7 - 

Description: This progeen performs a listing sorted by 
vessel name of those vessels which are 


OPE ae by a specified group of operators. 
The entire list of vessels may be pring 
or a specified group based on an alphabetic 


search. 
Tables Used: opvsl, operator, vessel 
Temp Tables: opervsls, opvslsl, opvsls2 
Reports Used: vsloper 
Forms Used: none 


RAKRAKAKAKAK RAK AKAKKAKAKKK KARR RK ARAR KKK AEK RAK KAKA KAKKKKKKAKERKAKAKEKER KR ) 
D, FAIRS iesestaln cer 


KR ( KARKKARKKRKKRKKKAKKK ARK AK RKK ARK RAK AK RK A AKKARRKAARRKKAAKRARKRRKKAKRKRRRRKAERKK 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


PERSONNEL REPORTS MENU and APPLICATION PROGRAMS 


Author: Jon D. Allen, LT, USCG 
Heidi R. Lang, LT, USN 
AUGUST 1987 


K ( AAAKARKARKK KKK AKKAKKAKAKAAKKAKAKKAKRKAK KAKA KA RAKKAKAAKKRKR AAA ARKRRARKAAKKK 
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Program: | Vessel Owners Table Dump 

Author: | J D Allen and H R Lang 

Date Written: August 1987 . a 

Description: This program prints a sorted Easting of 
vessel owners contained in the database 
based on the owner's last name and date 
of birth. 

Tables Used: owners 

Temp Tables: ownsuml, ownsum2 

Reports Used: owners 

Forms Used: none 


K (KARKARKAKKKKAKARKK KKK RK KAKKKK KK AKK KK AKAK KK AA KKKKAKKKKKAKK KKK KKK KKK KKKKK 


Program: Vessel Operator Listing 

Author: | JD Alvensanden Rk Lang 

BamesWritten: August 1987 Sa 

Description: This pega Pemmonisedsasting of Opematons 
@eevecscets colleammed in tne Cable OPERATOR. 


They are selected by date of birth and by 
Pieeritsteletter Of the last name. The 
Poncgersesoneed dipiasetically before 
being printed. 


Tables Used: _ operator 

Temp Tables: opsuml, opsum2 
Reports Used: operator 

Forms Used: none 


KR ( AAARKKAKKKAKARRKARKARKKAKRKK RRAKKKAAKRKKARKKK RAK RAK RRKARA RARER ARK AAA KAKA ARERR 


Program: Operator - Vessel Program 

Author: | J D Allen and H R Lang 

Date Written: August 96 / a 
Description: This program performs a listing sorted b 


operator last name of those vessels whic 
aré used by Specified operators. Operators 
Hdyeee se Fecuedmoyechedlpndoetic search or 
may be selected in their entirety. 


Tables Used: opvsl, operator, vessel 
Temp Tables: opervsls, opvslsl, opvsls2 
Reports Used: opervsls 

Forms Used: none | 


KR (AAKKAKAKKRKKAKKAKAKAAKRKAKKKRKAKKKKKKKAAKAKKKA KKK AKKKERKRERKKKKKKKAAKAKAAAKAKAAKRKK A 


Program: Owner - Vessel Dump Program 

BWenOY : J D Allen and H R Lang 

Dace Written: AugUSt61987 

Description: This program performs a listing sorted by 


owner last name of those owners which own 
Specific vessels. Owners may be selected 
in their entirety: or may be selected by 
an alphabetic search. 


Tables Used: owvsl, owners, vessel 

Temp Tables: ownvsls, ownvslsl, ownvsls2 
Reports Used: ownvsls 

Forms Used: none 


AARKKAARKKRAKRAKRKKKARKKKAKKKRAKKRKRAAKKEREKKAKKEKKAKKAKRKKKEKERKRKKAKEKK RI ) 
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10. SQUERY.PRG 
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US COAST GUARD GROUP MONTEREY 


SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 


INTELLIGENCE SYSTEM (SARELTIS) 


QUERY MENU and APPLICATION PROGRAMS 


Author: Jon D. Allen, Liveuocc 


Heidi R. Lang, LT, USN 
AUGUST 1987 


K (RARKKAAAKKAKKKKAKKRKKKAKARKKAAKRKKAKRKA AA KAKA ARKAAKARAAAKRKAARKKKKKRKAKKK 


Program: 
Ae Ors 
Dacey Whe ken: 
Description: 


Tables Used: 


Temp Tables: 
Reports Used: 


Forms Used: 


puery Vessel 
HR ang and J D Allen 

August 1967 | 

This program searches database for all 
information concerning a particular vessel. 
vessel, sar, boarding, owner, operator, 
owvsl, o vsl, vslintel, meee 

temp, vslint, perint, bohis, sarhis 
vslaqprn, bogprn, saraqprn, owqprn, opaqprn, 
PINTGpPRNn, Vintapan 

vslquery, brdquery, sarquery, ownquem 
opquery, pintquer, vintquer 


K (AAKKKKKAKKAKAKKKKAKAAKKKK KKK AKRARKRKA AK KRKAKA RRA K AK RAKAKAARKRRRAKAARRKAKAKAKARRKKKK 


Program : 
Bueno: 
Dater wr Geen: 
DesSecrIpel on: 


Tables Used: 
Temp Tables: 
Reports Used: 


Forms Used: 


Query Personnel 

HR ra and J D Allen 

August 1987 

This program searches database for all 
information concerning a particular person, 
meee ere. vessels owned or operated : 
and all historical information concerning 
these vessels. 

vessel, sar, boarding, Ownem, operates 
owvsl, o vsl, opown, VSiintel, perintet 
temp, vslint, perint ~eqmis, soabnis: 
vslsown, vslsopr, wvsljoin, pvsljoin 
vslqprn, bogprn, sarqprn, peraprn, 
PINGGEEn Svan | 

aa brdquery, sarquenymperquer: 
perqueray, DINECUeIaA® Vanraven 


RAAKKKKKKKKKAKKKRKAKKAKKRKKKKAKAKKKRKKKKKAAKRKKKAKAAKERKRAKKAKAKKAAKKERKRKKKKRKRKK ) 
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me SUTILITY.PRG 
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US COAST GUARD GROUP MONTEREY 


| SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 


INTELLIGENCE SYSTEM (SARELTIS) 


UTILITIES MENU and APPLICATION PROGRAMS 


Author: con De ausen, LT, UScG 


HewmaaR eh aS poled. .LJSN 
AUGUST 1987 


KR (KARKAKKA KAKA ARKKKAAKAKKK RKAKKAKKAKKKAKKAAKKAKAAK KK RK AKKAKKAKAKKKAKKAKKKKK AK 


Program: 
SUEAOY : 
foe Written: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Rmogram : 
Author: 

Dawe Written: 
Description: 
Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Initialize SARSYS 

J D Allen and H R Lang 

August 1987 

This program removes all temporary 

taples that can be created by the system. 
none 

all 

none 

none 


Pack Database 

J D Allen and H R Lang 

August 1987 

This program packs/compresses the database. 
none 

none 

none 

none 


. KR (AAAAAKARAKKKKKAKKKAKAKAKK RKKKKKKKAKKKKKKAKAKKKAKKKAKKKKKAKKKKKKKAKKKKKAKAKA KKK K 


| Program: 
Autnor: 
Dates Written: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Program: 
Author: 

Date Written: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 





Backup Database 

J D Allen and H R Lang 

August 1987 . 

This program provides instructions for 
backing up the database. 

none 

none 

none 

none 


KH (KARKAARKAKAKKKA KKK KKK KKKKKKAAKKKKAKAKKKAKKKKKKKKKKKAKKKKAKKKAKKAKAKKKAKAKKKAK 


Restore Database 

J D Allen and H R Lang 

August 1987 . 

This program provides instructions for 
restoring the database from a backup. 
none 

none 

none 

none 


AKARKRKAKKKKKKKK KKK KKKK KKK RAK KRAKKKKKAKKKKKKKAKKKKKAKKKKKKKAKKKAKKKKKKKKER ) 
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APPENDIX E 
SOURCE CODE FOR ANCILLARY PROGRAM MODULES 


The Search and Rescue and Enforcement of Laws and Treaties Intelligence 
System (SARELTIS) Prototype for US Coast Guard Group Monterey consists of 
eleven sets of application programs written in the R:base 5000 command language, and 
sixteen ancillary program modules written in either the R:base 5000 command language 
or as DOS batch or data files. All of these programs have access to one common 
relational database structure, named SARSYS. 

This appendix contains the source code for the sixteen ancillary program modules 
of SARELTIS. These modules include the following: | 

e RESTBRD.cmd - Runs the Boarding Reports Menu Program 

¢ RESTINPT.cmd - Runs the Data Entry Menu Program 

e RESTINT.cmd - Runs the Intelligence Reports Menu Program 

e RESTMAIN.cmd - Runs the Main Menu Program 

¢ RESTMOD.cmd - Runs the Data Modification Menu Program 

e RESTPRS.cmd - Runs the Personnel Reports Menu Program ° 

e RESTQRY.cmd - Runs the Query Menu Program 

e RESTRPTS.cmd - Runs the Reports Master Menu Program 

e RESTSAR.cmd - Runs the Sar Reports Menu Program 

¢ RESTUTLY.cmd - Runs the Utilities Menu Program 

¢ RESTVSL.cmd - Runs the Vessel Reports Menu Program 

e STARTUP.BIN - Runs the Title Page and Security Program 

e RBASE.DAT - Runs Startup.bin when R:base 1s loaded 

e SARSYS.BAT - Automatically loads application from main directory 

¢ BACKDBMS.BAT - Batch file to backup the database and programs 

¢ RESTDBMS.BAT - Batch file to restore the database and programs 
The source code for the application program sets is contained in Appendix F through 
Appendix P. All programs for this project were developed by the writers. Internal 
formats for the Reports and Entry/Edit forms are contained within the R:base 5000 


database structure itself and were considered inappropriate for listing. 
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A ( KRAKAKKRARKKERKRERKRRKKRERAKRAAKRERKAKERKRER KRRKAAKERAREEK RRR EKER RKKK 


Pro 


een: 


Author: 


Dates Written: 
mesecription: 
Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


RESTBRD.cmd 

J D Allen and H R Lang 

August 1987 

This program calls the boarding reports menu. 
none 

none 

none 

none 


KAAKKKAKKKKKKAAKKKKKKKKKKKKKKAKK KKKKAKKKK KAKA KKK RRKKRKKK AK RKKKKKAKKEREK KX ) 


run brd_main in brdrpts.apx 


*( end 


K ( AKRARKKKKKAKARKKKK KK KKKKK KKK KKK KRKAKKKAKKKK KK KAKKAKRA KAA KAKA RK KKK KKAKKKEKRKAKK 


Pro 


ram: 


Author: 


Date Written: 
Description: 
Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Rest INP i -cmd 

J D Allen and H R Lang 

August 1987 

This program calls the input main menu. 
none 

none 

none 

none 


HIAKK KAKI KRKK KIKI KAKI RAK KKK IKK IRA KAK KIRA RK RAKE KKKK KAKA ER KKK ) 


run _ in sentry.apx 


*( end 


KR (KAKKKKAKK KKK RKKKKRKKKAKRRKKKRKARKKAKKRKKAKAKKRKKKAKEKK KKK KKRKKKKRRKKKAKARK KAKA 


Program: 


Author: 


Date Written: 

@eSeription: 

Tables Used: 
| Temp Tables: 
| Reports Used: 
| Forms Used: 


REo@il acma 

J D Allen and H R Lang 

August 1987 

This program calls the intelligence reports menu. 
none 

none 

none 

none 


RARKKKKKKKKKKKAAKKKKKKEKKK KK KK KK KKK KAR KK KKKAKKAKAKKKAKKKAKKAKKKKRKEKKKRKRZ ) 


run int_main in intrpts.apx 


end 


KR (KAKKAAAKAKKKRKAKKAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAK KK KARKKKKER KKK KKK ERK 


Pro 


ram: 


Author: 


: Date Written: 
Description: 
Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


end 





RESTMAIN.cmd 

J D Allen and H R Lang 

Aug@st 1987 . 

This program calls the main menu of the system. 
none 

none 

none 

none 


AKKRRKRRKKRAKRKARRKAKKKK KKK RKKAKKKKAKKKAKKKKKKAKKKAKRKKKERK RARER RAKRAKRKAKRKKRRE ) 


run in sarsys.apx 
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K (AKAKKKKKARKKKAKKKAKKKKAKAKKK KK AKK AAA RRA KRKKAKRK KKK KKAKRKKRKKKRKKKRKKARKKKKK 


Program: RESTMOD. cmd 

Author: | J.D Allen and Hak Cand 

Date Wrreren- August 1987 
Description: This program calls the modify main menu. 
Tables Used: none 

Temp Tables: none 

Reports Used: none 

Forms Used: none 


RARKKRKKKKKEKRAKEKKKKK KKK KK KKKK KKK ARK ARKKKKKRRKARKKKKKRKARKAKKKRKKRKKRKE RK ) 


run modmain in modify.apx 
*( end 


KR (KAKKRRAAKRRKKKKKKKKRKEKKK KK RRKK KKK RRKKKKAKRKKKAKKRKRKKKKRKRKKARKKAKKAKRKK 


Program: RESTPRS .oma 

Author: J D Allen and H R Lang 

Date iit een: August 1987 

Description: This program calls the personnel reports menu. 
Tables Used: none 

Temp Tables: none 

Reports Used: none 

Forms Used: none 


RAKRKKKKKKKKKKKKKKKKK KKK RK KK KKK KKK KKKKKKKKKKKKKK RK KARR RK KKAKKKKKKKKZ ) 


run prs_main in prsrpts.apx 
k( end ) 


KH (RRRRKKRKKKRKRKKK KARR RRR RRR RRR RRR RRR RRR RRR RRR ERK RRKK KKK KKK RKKAKAKAKAKKKKK 


Program: RESTORY .cmd 

AUEROIes J D Alléengand WH Ryeang 

Dates iileren- August 1987 
Description: This program calls the modify main menu. 
Tables Used: none 

Temp Tables: none 

Reports Used: none 

Forms Used: none 


KRRRRKKKKKAKK KKK KKK AKK KK RREKRK KKK RRR ARKKK KARA KKKKRERKRKKR ARKKK AAR KKARERE ) 


run grymain in squery.apx 
&( aca query.ap 


KR (AKKRKAKKKKKRRKKAKRKRKKKKAKK RRA KAKKKKKRKARK RK RAK ARRAAAKRRRRK AK RK RKKKKRKKKK 


Program: RESTRE Do seme 

AUG ees: J D Allen and H R Lang 

Datesninaceen: August 1987 . 
Description: This program calls the reports main menu. 
Tables Used: none 

Temp Tables: none 

Reports Used: none 

Forms Used: none 


RAARKKKKKRKKKKKKKKKKKKKRKAKKARKKAKKRKKAKRKEKKRRKKARRKKARKRKKRKKKRKRKKRERK K ) 


run rptmain in sreports.apx 
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*( end ) 


K (AKAKKAKKKAKKKKKKAKKAKKKKAKKKKAKKKAKRKKRAKAKAKRAKKKEKKRKRKRKRKRRKERERKERERKK 


Program: 
eeEnOr : 

Date Written: 
Description: 
Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


RESTSAR.cmd 

J D Allen and H R Lang 

August 1987 

This program calls the sar reports menu. 
none 

none 

none 

none 


RKKKKKKKKKKKKRKRKRKKKKKKKKKKKAKKRRRRRKRKRRKKKRKAAKKAKRRRRARRRKRKRKRKKKKKKKKERER ) 


run sar_main in sarrpts.apx 


end ) 


RK (RAKARKKRKKARKKKRKKKKKRKKKRKKRKKKRKKRRKKKRKRKKAKRKRKKRKKERKERKAKARKKRKAKRKKKRRKA KEK 


EmegraMm : 
Peewor : 

Dace Written: 
Description: 
Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


REStUGnY cma 

J D Allen and H R Lang 

August 1987 — . 

This program calls the utility main menu. 
none 

none 

none 

none 


REKKKKKKRRKRKRKRKKKKKKKKKKRKARRKRKRRKKKKRKKAKAKKRKR AER RRR RKRKKKRKKKKKKKRREEE ) 


run utlmain in sutility.apx 


*( end 


KR (KARKKKKKKKKAKKKKKAKKKRKKKARKRKKKAKRKRKKAKARKAAKRKRKKAAKKAAKARRKKKARRKKKRRKRKKKRK 


Program: 
Author: 

Date Written: 
Peseription: 
Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


REo@Vs Leemd 

J D Allen and H R Lang 

August 1987 

This program calls the vessel reports menu. 
none 

none 

none 

none 


RERKRKAKRKKRKAKKKKAKKKRKKAKKRKKRKKKRKRAKKRKRRKKRKRKRKRKRKKRKKKRKKRKKKKKRER ) 


run vsl_main in vslrpts.apx 


Bend ) 


KR ( RRAAKRKKKKKRKKKAKKKAKAKRKKKKKRARAKAKKAKRAKAKKEREKKKRRKKRRERKKKRRRKKRERKEKKRERKKK 


Program: 
Gu AOr : 
Pace Written: 
Bescription: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


STARTUP.prg (uncompiled version of STARTUP.BIN) 
J D Allen and H R Lang 

August 1987 

This program displays the title screen and 
verifies user access. 

none 

none 

none 

none 
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RAKKKKKKK KKK KKK KKK KKK KKKKKKAKKKARKKK RAK RK AKKARKKARKARKK RK AKKKKKKRKKRKKKKR ) 


set error messages off 
set escape off 
set messages off 
newpage 
clear all variables 
write "' 
i Janae aS 
write " This is 
i eas 
write '"! 
+ abo: 
write "! Enforcement of Laws 
Wc 


WELCOME 


the 


Search & Rescue / 


and Treaties 


write " Intelligence Information System (SARELTIS) 


aes 
write ' 
"at 14 
Winger 
nme agli 
write " 
" at 16 
Write ' 
 \ aemee 2 
pause 
newpage 
S€l Va USC) ane mne sce 
Set VabeUusemedsos cexe 
set var validusr text 
set var validush to no 
set var chances integer 
set var chances to 3 
SETUGREOr Messages on 
While validusr eq no then 
write "Please enter your user name and 
fillin username using "User Name: " at 


Date: September 1987 


nm MH GF | 


Authors: LT Jon D. Allen, US Coast Guard 
LT Heidi R. Lang, US Navy 


Please press any key to continue 


yee user password" at 3 1 


fillin userpass using -Fessoue "ato 


Se emer onuwme Ss acGecemic 

newpage 

if username $c. | and userpass eq 
set var validusr to yes 
break 

endif 


UKKKAAK then 


if username oo and userpass eq "*xxkkxx' then 
i 


set var va 

break 
endif 
set var chances to .chances - l 
if chances le O then 

newpage 

See Colne towze 

while count ne 0 then 


dusr to yes 


Write "Improper LOGON attempt....SARELTIS Terminated!" at 10 1 


S€t Var UcOun becom. Coe aaams 
endwhile 
BStigace 
ex 
endif | 
write "Invalid user name or password, 
endwhile 
if username eq sysop then 
user sarsys 


Nees ae 
write "Tnitializing SARELTIS aed co 
run sarsys in sarsys.apx 


end & 
1f username eq ood then 
newpage 


YPag ‘igs, ea 
write "Initializing SARELTIS" at 10 25 
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Please try again." at 101 


+ + + + + + + + + 





run sarsys in sarsys.apx 
endif 
exit 
*( end ) 


HR (KAAKKKKAARAKKKAKKAKKAKAKKKAKKAKAK AKA RAK KK KAKKAKKKKAKAKK RRA KAKA RAAKKAKKAKKAKK 


EEogram: RBASE.DAT 

Author: | J D Allen and H R Lang 

Paee Written: August 1987 

Description: This program loads the title screen and security 
module when R:base 5000 is loaded. 

Tables Used: none 

Temp Tables: none 

Reports Used: none 

Forms Used: none 


KRKKKRKKRKKKRKRKREKAKKKERKKKRKARKRAK KER KK KKK AAKKARKKKRAEKAKEKKKAAKKKK A ) 
run startup.bin 


exit 
*( end ) 


K ( RAKAKARKAKARAARAKAARARARKRKAKAKKA KKK KK KKK KARA KKK RK AKA KK AK KAKA KAKA AK AA 


Program: SARSYS .BAT 

Author: | J D Allen and H R Lang 

Paee Written: August 1987 

Description: This file loads R:base and enters the 


SARELTIS application directly from the 
Main directory. 


Tables Used: none 
Temp Tables: none 
Reports Used: none 
Forms Used: none 


KRARKKKKRAAKKKKAAKKKKAKKKKK KKK KAKA AKKKAKKAKKKRKKAKKRKRKAAKKK KK KK AKKAKKAKKKK KEE ) 


ed c:\dbdir 
path = c:Nr5k 
rbase 

*( end ) 


K (RAKAKKAKAAKAKKAKKKK KKK AAKKAKRKKAAKKARAKKAKKAKKRKAKAKKRKKKKKERK RAKE KKKKAK KR 


Program: BACKDBMS .BAT 

euthor: J D Allen and H R Lang 

Pace@ Written: August 1987 

Bescription: Tagisuet 1 le penzorns a backup of the | 
database structure and all application 

programs. 

Tables Used: none 

Temp Tables: none 

Reports Used: none 

Forms Used: none 


AAKKEK KARR KKK RAAKKAKKARAKKKKK KK AKAKKKAKKAKKKKAKKAKAKKAKKKKKAKKKKKKKKKAKEKE ) 


path = c: ;c:\util 
cd \dbdir 

Backup *.apx a: 
backup PRS IEL. Hos a: 
backup *.cmd a: 
Backup startup.bin 
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backup rbase.dat 

path = c:Ndbdir;c:\r5k 
rbase 

*k({ end ) 


K (AKAKKKKKKKKKAKAKKKRKKKAKAKAKKKKKKAAKKAKKKAKAKKAKKRKKAKAKRKKKKAKAKRKKRKKKRRKRKKKKKRRKKKK 


Program: RESTDBMS . BAT 

Author: | J D Allen and H R Lang 

Patee whe cel.: Augus talon 

Description: This file restores deubaemup copy Orn 
the database structure and application 
programs. 

Tables Used: none 

Temp Tables: none 

Reports Used: none 

Forms Used: none 


RERRKRRKERKERARRRRRKRK RRR RRR RR RRR RRR RRR RRR RR RRRRRRRRRRRRRRRRRRRRRRRKREREK RR ) 


path = c:\dbdir;c:\util 


Ga Nedbdar | 
restore a: \dbdir 
restore a: \dbdir 
restore a: \dbdir 
restore a: \dbdir 
restore a: \dbdir 

path = c:\dbdir;c:\r5k 
rbase 

*( end ) 
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APPENDIX F 
SARSYS SOURCE CODE 


$ COMMAND 


SARSYS 
K (KAKKKKAKAKKKKKKKKK KKK EK KKKKAKRK KK KKK KRKK KKK RKK KKK KKK KKKKKK KARR RKKK A 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


MAIN MENU and STARTUP APPLICATION 


Author: JOU. aewen, LT, USCG 
Heidi Lang, LY, USN 
AUGUST 1987 


RARKAKKRAKKKKKKAKKKRKKKKRRRAAKRRRKKKRKRKAAKRKKKKKKRKRKAKRKKAAK RRKKKAKAKKRKAK AE ) 


set escape off 
Set messages off 
set error messages off 
open sarsys | 
O@eedr dil variables 
run INITIAL in sutility.apx 
set var pickl integer 
newpage — | 
choose pickl from mainmenu in sarsys.apx 
feeeckl eq 0 then 
quit to restmain.cmd 
endif 
Ziee@enieed 1 then 
run SINPUTS ott ote aca 
quit to: -restmain.cm 


endif 
im paekl “4 2 then 
me, MODIFY in sarsys.apx 


quit to restmain.cmd 
endif 
mee peckl eq 3 then 
run QUERY in sarsys.apx 
quit to restmain.cmd 


endif 
oe packl eg 4 then 
run SREPORTS in sarsys.apx 


quit to restmain.cmd 
endif 
1f pickl eq 5 then 
aun ULTILITY umedsy saa0* 
quit to restmain.cm 
endif 
me peckl eq 6 then 
run ADHOC in sarsys.apx 
quit to restmain.cmd 
endif 
ge pickl eq 7 then 
set var exitprg text 
S@t var @xatprg to yes 


enduvt 

Write "You have completed this session...." at 10 1 
write "REMEMBER --- Do frequent backups!" at 12 1 
write "Please press any key to exit" at 18 1 

pause 


2 | 


newpage 

set escape on 

set messages on 

set error messages on 
rae 

Smenu 

mainmenu 

column SARELTIS --- MASTER MENU 
INPUT INFORMATION 
MODIFY INFORMATION 
QUERY INFORMATION 
REPORTS 

UDI tee 

AD HOC QUERIES 

BAIT oo 


( end 

SCOMMAND 

SINPUTS 

K (KARRRAKRKKAKKKA RRA KKK RAK RRA ARERR AK RRK KR RRKKRRKKRRAKRARKAKRRKKRRKARRKKRRK 
Program: Access Input Module 
Author: J D Allen and H R Lang 
DaAcer Nh bee:n = August 1987 
Description: This program calls the input master menu. 
Tables Used: none 
Temp Tables: none 
Reports Used: none 
Forms Used: none 


RAKKRRRKKKAKRRKRKKKKKRRKKKAKRRRKKKAKARRKRKAAKRRRKKRK ARR RKKAARRKRKRRRRKRKRR ) 


run INPMAIN in SENTRY.apx 


Retund 
k( end ) 
S COMMAND 
MODIFY 
K ( RRRKARRAKAKKAKAARKAKKRAARKAKRKAKARK AK RARKRRARRAKARKARKAKRRARRAKERKAR ARK 
Program: Access Modify Module 
Author: J D Allen and H R Lang 
Date Wriecen: August 1987 
Description: This program calls the modify master menu. 
Tables Used: . none 
Temp Tables: none 
- Reports Used: none 
Forms Used: none 


RRARRRKRRKRKRKKRKKRKKRKRKRKRRRKRKRRKRRRKRKRKRKRRK RK RKRRK RRR RRKRKRKKKRKRKKKE ) 


run MODMAIN in MODIFY.apx 


Perien 
*( end ) 
oD 
SD GEESE OOOO OOOO OI II IIR III IIIT I IIR III IIIS II RII II 
PRecman: Access Query Module 
Author: | J D Allen and H R Lang 
Dacewnrt ecen- August 1987 
Desert peLon: This program calls the query master menu. 
Tables Used: none 
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Temp Tables: none 
Reports Used: none 
Forms Used: none 


KREKKKKKKKKKKKRKRKRRK KKK RRR RRR RRR AR RKKRAKKKKKKKKKAKKKKKKAAKKKRKKKKERE ) 


run QRYMAIN in SQUERY.apx 
return 


*( end ) 
SCOMMAND 
SREPORTS 
H ( RRAKKKAKAKAKAAKAKKAKKKKRKK KK AKKAKKAR KARA KARA RRA ARK RRA KKK KARA RRA 
Program: Access Reports Module 
Author: | J D Allen and H R Lang 
Bee Written: August 1987 
Description: This program calls the reports master menu. 
Tables Used: none 
Temp Tables: none 
Reports Used: none 
Herms Used: none 


KAKARRKKKKAKKKKKKKARKRKKRKKAAAKKKKKRKAKKRRAKKKKAKAK RAK KKKAAKKRKKKAKAAKAKKAKK ZR ) 


run RPTMAIN in SREPORTS.apx 


return 
*( end ) 
SCOMMAND 
ma TLITY 
KR ( KARAKRAKKKKKKRKKK RR AKA RKARK KKK AKER KR RRKKRRKERKKRAKR RARER AR RKRARR AR 
Program: Access Utilities Module 
Author:- J D Allen and H R Lang 
mace Written: August 1987 
Description: This program calls the utility master menu. 
Tables Used: none 
Temp Tables: none 
Reports Used: none 
Forms Used: none 


KARR KAKKKAKEKK AKA KKKAKKKKKKK KARR KAKRKKRKAKRKKK KK KKK RK REKAKRAKKARKAAKKAEE ZK ) 


run UTLMAIN in SUTILITY.apx 
return 
*( end ) 


S$ COMMAND 


ADHOC 
K ( AKAKRKKKAKKKRKKAKAKKKRKKKAKAAKAKAKKKAKARKRKEKKKKKAKKKRKAAKKKRREKKRKKKKKERKARAKKKA 


Program: Access Ad Hoc Module 

Author: J D Allen and H R Lang 

Bate Written: August 1987 

Description: This program allows the user to exit the 


menus to the RBase 5000 command prompt to 
execute ad hoc queries. 


Tables Used: none 
Temp Tables: none 
Reports Used: none 
Forms Used: none 
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RAKKKKKAKKAKKKKKRKKKKKKKKAKKKAKKKKKKKKAKKKRKKKKKKKAKKAKKKRKKARKAKKKKKKKKKK ) 


weeceet "You are now exiting the menu system of SARELTIS. Before + 
exercising  atee tl 
write as option, you should become very familiar with RBase 5000 " + 


write sey commands found in the reference manuals and the actual " + 


write "database structure." at 7 
WatEe ew DOP YOU Wlsn tO Kecuhimee che SARELTIS menus? (Y)" at 10 1 
se— var choice text 
fillin choice using "(" at 10 46 
als aes eed n then 
neypags 
write "You are now exitting the SARELTIS menu system" at 8 10 
write "If yeu wish to return to the menu system, please" at 10 10 
write as RUN STARTUP at the RBase 5000 prompt. " at lige 
write "Please press any key to continue" at 16 10 
pause 
Sen escage or 
set messages on 
SEG error Messages soa 
Clear all variables 
set bell on 
newpage 
quit 
endif 
return 
*( end ) 
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APPENDIX G 
SENTRY SOURCE CODE 


S COMMAND 


INPMAIN 
K (RAKARKRAKKKKRRKAKK RE REKKK KERR RKKK RRR REE RARER RRR RK RRR RRA RRR KK 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
Pe LLIGENGCE, sYsleM (SARELTIS) 


INPUT MASTER MENU and INPUT PROGRAMS 


Author: Jon D. Allen, LT, USCG 
Heidi R. Lang, LT, USN 
AUGUST 1987 


KRRERKARKRKKRKRRRKKKERKRKRRRKRRRRRRKRRRRRKREKRRRRKRRRKRRRERKRKRRKERERRRRKRRRRARRRKRRRRKARRER ) 


newpage 
set messages off 
set escape off 
Sear all variables 
set var pickz integer 
newpage | 
choose Beene from inp_menu in sentry.apx 
ee pick. eq 0 then 
gute tO restinpt.cmd 
endif 
meerick2 eq 1 then 
run add_sar in sentry.apx 
sure co restinpt.cmd 
endif 
meepick2 eq 2 then - 
run add_sbd in sentry.apx 
@ert to restinpt.cmd 
endif 
meepick2 eq 3 then 
Bunedeassut in sentry.apx 
fee tO restinpt.cmd 
emait 
wt Pick2 eq 4 then 
Ber aad brd in sentry.apx 
quit to restinpt.cmd 
endif 
et pick2 eq 5 then 
run add_ownr in sentry.apx 
guic tO restinpt.cmd 
endif 
me Pack2 eq 6 then 
run am_vint in modify.apx 
eure to restinpt.cmd 
endif 
et pick2 eq 7 then 
run am_pint in modify.apx 
@uit to restinpt.cmd 
endif 
gr pick2 eq 8 then 
mult to” resithadan.cmd 
endif 
quit to restinpt.cmd 
return 


Zoo 


Smenu 

inp_menu 

column SARELTIS --- INPUT MENU 
INPUT SAR INFORMATION (NO BOARDING) 
INPUT SAR INFORMATION WITH BOARDING 
INPUT MULTIPLE SAR UNITS 

INPUT BOARDING INFORMATION 

INPUT MULTIPLE VESSEL OWNERS 

INPUT VESSEL INTELLIGENCE 

INPUT PERSONNEL INTELLIGENCE 
RETURN TO MAIN MENU 


*k( end ) 
SCOMMAND 
ADD_SAR 
HK (REKKKRKAKARRKKAKRRKKKRRRRRKKRRRKK RRA KKK KAR RRK KER RRKKER ARK RRERKKRERK 
Program: Add Sar 
Author: H R Lang and J D Allen 
Date Written: July = De7 
DeseRto eon: This program allows the user to input 
sar case information. 
Tables Used: vessel, sar, owners, operators, owvsl, opvsl 
Temp Tables: none 
Reports Used: none 
Forms Used: sarforml, sarform2, sarform3, sarformé4, 
sarform5, sarforms, sarform7, sarform8, 
sarformg9 


RAKKKKRKKKAKKKKKKAKAKAKKKKKKKKKAKAKKKKKAKKRKERKKRKKKAKRKERERKK KARR KKKKRKKKKKKERZ ) 


set error messages on 
set messages of : 
set escape off 
newpage 
write "Program loading in progress. Please stand Dy moe " at 10°28 
clear all variables 
set null ? 
Setev at Pg Ome le ; 
*(initialize edit and load control variables) 
Sets Var ev iew es eom 
set var loadmenu to N 
label begin 
set var backup to N 
Set Vane pccount come . 
while pg gt 0 then *(main loop) 
newpage 
HE Do req: le chen 
(enter general say intonmaeuon, 
1f review eq N and backup eq N then 
set var paecount tou: 
set var vsardate to .#date 
Set var vVsareame coer o0Gs 
set var vsarlat to 0.0 
set var vsarlong to 0.0 
set var vdistofr to 0 
Set Var VsdEeeee rosy 
endif 
write "Press [ESC] to quit or [PGDN] to move down a page" at 1 1 
draw sarforml with all at 3 
1f review eq N then 
Sa var return esc pgdn 
else 
edit var vfoldno vucn vmucn vsardate vsabcey vsartime vsarnod + 
vared vsarlat vsarlong vdistoff vsarpob return esc pgdn 
end1 
endif 
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im oodseduz then 
*(enter vessel information) 
if review eq N and backup eq N then 
sét var pgcount to z 
While vvslhin exists then | 
set pointer #1 el for vessel where vslhin = .vvslhin 
newpage 
1f el eq O then 
(vessel exists in ae 
set var vvslno to vslno in #1 
set var vvslname to vslname in #1 
set var vvslmake to vslmake in #1 
set var vvslmod to vslmodel in #1 
set var vvslyear to vslyear in #1 
set var vvslton to vsltons in #1 
set var vvslft to vsllenft in #1 
set var vvslin to vsllenin in #1 
set var vvslhp to vslhp in #1 
set var vvsluse to vsluse in #1 
set var vvsltype to vsltype in #1 
| set var Vagei prc to vslprop in #1 
set var vvslhull to vslhull in #1 
set var vvsleng to vsleng in #1 
set var vvslfuel to vslfuel in #1 
set var vconstr to vslconst in #1 
set var vdecal to cmedecal in #1 
set var vemeyear to cmeyear in #1 
setevar votfno, to vslofino in #1 
set var vhome to homeport in #1 
set var vcall to vslcall in #1 
set var vvalue to vslvalue in #1 
set var vsuper to vslsuper in #1 
set var vmasts to vslmasts in #1 
set var vsailno to sailno in #1 
| set var vhlicolor to hlcolor in #1 
set var vtrcolor to trceolor in #1 
set var vslcolor to slcolor in #1 
set var vcbcolor to cbcolor in #1 
set var vdkcolor to dkcolor in #1 
set var vmarks to vslmarks in #1 
set var vl to vslno in #1 
set var v2 to vslname in #1 
set var v3 to .slhin in #1 
set var v4 to vslmake in #1 
set var v5 to vslmodel in #1 
set var v6 to vslyear in #1 
set var v7 to vsltons in #1 
set var v8 to vsllenft in #1 
set var v9 to vsllenin in #1 
set var v10 to vslhp in #1 
Scemvar Virero VoLuse™ Lier. 
set var vl2 to vsltype in #1 
set var vl3 to vslprop in #1 
set var vl4 to vslhull in #1 
set var v15 to vsleng in #1 
set var vl6 to vslfuel in #1 
set var v17 to vslconst in #1 
| set var vl8 to cmedecal in #1 
set var vl19 to cmeyear in #1 
set var v20 to vsloffno in #1 
set var v2l to homeport in #1 
set var v22 to vslcall in #1 
set var v2Z3 to vsivalue in #1 
set var v24 to vslsuper in #1 
set var v25 to vslmasts in #1 
set var v26 to sailno in #1 
Ste ver'v2z7 £6 Rlcolor in $1 
set var v28 to trcolor in #1 
set var v29 to slcolor in #1 
set var v30 to cbcolor in #1 


eS7 





set var v3l1 to dkeolor ama 
set var v32 to vslmarks in #1 


set var vvsltype text 
set var vvsltype to 9 
set var vvsluse text 
set var vvsluse to 0 
set var vvslyear text 
set var V8 eas to 1901 
set var vvslhp text 
set var vvslhp to 0 
set var vvsl jefe) 0) 
set var vvslin to 0 
set var vvslton to 0 
set var vvalue to $0 
set var vdecal text 
set var vcmeyear text 


endwhile 
endif 
write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move + 
down a page" at ll. 
draw sarform2 with all at 3 
edit var vvslno voffno vhome vcall vvsltype vvsluse vvalue + 
vvslmake vvslimod vvslyear vvslft vvslin vvslhp vvslton return + 
esc pgup pgdn 
encan: 
Vimo Cd omsrdens / . 
*(enter vessel information) 
if review eq N and backup eq N then 
Set var acount tons = 
Li-el ne then 
set var vvslhull text 
set var vvslhull to 8 
set var vvslfuel text 
set var vvslfuel to 0 
set var vvsleng text 
set var vvsleng to 0 
SGu Val YGONSEr -cexE 
Set Var VeEonste. tome 
set var vvslprop text 
set var vvslprop to 9 
set var vslcolor to unk 
set var vhicolor to unk 
set var vtrcolor to unk 
set var vcbcolor to unk 
set var vdkcolor to unk 
Sovebbe 
ena 
Write "Press [ESC] to quit, [PGUP} to move up, [PGDN] to move + 
down a page” at i 1. 7 
raw sarform3 with all at 3 
edit var vvslhull vvslfuel vvsleng vconstr vvslprop vsuper vmasts + 
vslcolor vsailno vhlicolor vtrcolor vcbcolor vdkcolor vmarks + 
return esc pgup pgdn 
endif 
lf Bporequga then 
x(enter owner information) 
if review eq N and backup eq N then 
set var pgcount to 4 
set var vowlname to unk 
set var vowfname to unk aan . 
7 gee "Press [PGDN] after entering initial information to check 
2 a 
write "owner exists in database. Press [ESC] to quit" at 2 10 
draw sarform4 with all at 4 
edit var return esc pgdn 
enc r 
if #return ne esc then 
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if review eq N and backup eq N then | 
while vowiname exists and vowfname exists then 
set pointer #2 e2 for owners where ownlname = .vowlname and + 
ownfname = .vowfname 
newpage 
while e2 oo QO then 
A(owner last/first name exists in database) 
set var vowml to ownmi in #2 
set var vowdob to owndob-in #2 
set var vowaddr to ownaddr in #2 
set var vOuee ey to owncity in #2 
set var vowst to ownstate in #2 
set var pics to ownzip in #2 
set var vowtelno to owntelno in #2 
newpage . 
: draw sarform4 with all at 3 
| draw sarform5 with all at 8 
write "Correct owner? MW at 21 20 
Pai owround Using ("ae 21 35 
if owfound exists and owfound eq Y then 
set var owl to .vowlname 
set var ow2 to .vowfname 
set var ow3 to ownmi in #2 
set var ow4 to ownaddr in #2 
set var ow5 to Sune LEY in 72 
set var ow6 to ownstate in #2 
set var ow7 to nee Linger, 2 
set var ow8 to owntelno in #2 
| set var ow9 to owndob in #2 
set var owl0 to ownid in #2 
set var vownid to ownid in #2 


break 
endif 
) Dext we e2 
endwhile 
| meee2 me O then 


newpage 
wri Thee owner does not exist in the database" at 5 5 
fillin go using "Press [ENTER] to continue" at 9 5 
clear vowm1 
, clear vowaddr 
clear vowcity 
set var vowst to CA 
clear veuZ3D 
clear vowtelno 
wEever yowdop to 01/01/1901 
compute vmaxown as max ownld from owners 
1f vmaxown fails then 
set var vmaxown to 0 
endif | 
set var vownid to .vmaxown + 1 - 
endif 
break 
endwhile 
endif 
newpage 
Write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move + 
down a page" at ll. 
draw sarform4 with all at 3 
draw sarformS with all at 8 
edit var return @ésc pgup pgdn 
Badif 
Sueat 
1£ pg eq 5 then . 
x(enter operator information) 
1f review eq N and backup eq N then 
we Var pgcount to 5 saa ) 
a oe "Press [PGDN] after entering initial information to check 
Le" @ 
write "operator exists in database. Press [ESC] to quit" at 2 10 
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set var voplname to .vowlname 
set var vopfname to .vowfname 
draw sarform6 with all at 4 
edit var return €sc¢ pogan 
endif 
if #return ne esc then 
if review eq N and backup eq N then j 
while voplname exists and vopfname exists then 
set pointer #3 e3 for operator where oplname = .voplname + 
and opfname = .vopfname 


newoage 
wi Lemes Tec sO mene ies 
*(operator last/first name exists in database) 
set var vopmi to opmi in. 
set var vopdob to opdob in #3 
set var vopaddr to opaddr in #3 
set var VERS TEY to opcity in #3 
set var vopst to opstate in #3 
set var vena to qp2 ee in #3 
set var voptelno to optelno in #3 
set var vopcrse to opcourse in #3 
newpage 
draw sarform6 with all at 3 
draw sarform7 with all at 8 
write "Correct operator? (N)" at 21 20 
fillin opfound using "Giaeu2 ee 
ae See oun exists and opfound eq Y then 
set var opl to .voplname 
set var op2 to .vopfname 
set var op3 to opmi in #3 
set var op4 to opaddr in #3 
set var op5 to opcity in #3 
set var op6 to opstate in #3 
set var op7 to oeaee in #3 
set var op8 to optelno in #3 
set var op9 to opdob in #3 
set var opl0 to opcourse in #3 
set var opll to opid in #3 
set var vopid to opid in #3 


if e3 ne O then 


newpage 
write "This operator does not exist in the database" at 5 5 
fillin go using "Press [ENTER] te continue’ at 9 5 
if vowlname eq .voplname and vowfname eq .vopfname then 
set var vopmi to .vowml1 
set var vopaddr to .vowaddr 
set var Vopeaey to .vowcity é 
set var vopst to .vowst 
set var vopzip text 
set var Veneer to .vowzip 
set var vopcewno £exze 
set var voptelno. to .vowtelno 
set var vopdob to .vowdob 
ele | 
clear vopm1 
clear vopaddr 
clear vopcity 
set var vopst to CA 
clear vopzi 
clear voptelno 
set var vopdob to 01/01/1901 
endif 
clear vopcrse 
compute vmaxop as max opid from operator 
if vmaxop fails then 
set var vmaxop to 0 
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endif 
set var vopid to .vmaxop + l 
endif 
Break 
endwhile 
endif 
newpage 
write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move + 
Mewn apage" atiliie. 
draw sarform6 with all at 3 
draw sarform7? with all at 8 
edit var return esc pgup pgdn 
emai t 
endif 
1£ pg eq 6 then 
*(enter sar weather information) 
1f review eq N and backup eq N then 
set var pgcount to 6 
set var vsunrise to 06:00:00 
setever vVeunset to 19:00:00 
set var vcelling to 0 
set var vclouds to 0 
set Var vvisdist to 0 
set var vwinddir to 0 
set var vwindspd to 0 
set var vseas to 0 
set var vswells to 0 


write "Press LESC] to guilt or [PGUP] to move up a page" at ll 
draw sarform9 with all-at 3. — | 
edit var vsunrise vsunset vceiling vclouds vvisdist vwinddir + 
vwindspd vseas vswells return esc pgup 
gece var loadmenu to "Y" 
if fret th 
1f #return eq pguf en 
set var backup to 4 
at Pg gt 1 then 
See var pg to .pg - il 
else : 
secu Vai pg to 
endif 
endif 
1f #return eq pgdn then 
it pe lto then 
meteva pg to .pg + l 
Mmoogeoum: lt .pg then 
set var backup to N 
endi 
else — 
set var pg to 
endif 
@ndif 
1f #return eq esc then 
set var backup to N 
sem Var pg to 0 


endif | 
endwhile *(end of main loop) 
newpage 
Write "Program loading 1n progress. Please stand by ........ mmbiee ro 10 
1£ loadmenu eq "Y"' then 


set var choice to 0 
while choice lt 1 or choice gt 3 then 


ae RAGS 
wate’ “Datta Load Options" at 2 20 
ee == "Ge 3 Ze 

peee were ye “at 2 20 

Write "1l=%o load the data into tie’ databgse" at 6 20 
Write “Z=To' 1gnore the data entered" at 7 20 

Write "“3-To go back and verify data entered" at 8 20 
Whaley" Yours cheicé: ' @t 10 2 
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fillin choacewusang " '' vent oe age 
newpage 
if cheice eq Peinen . . 
aie for required information) | 
lf vsardate exists and vfoldno exists and vucn exists and + 
vvslname exists and vsarlat exists and vsarlong exists and + 
vsarnod exists and vimmed exists then 
SEC Error Messaqessons 
vigel eq Veegen 
*(vessel exists in database) 
write "changing values in vessel" 
delete rows from #1 
elS- 
write "loading vessel" 
ending 
load vessel 
.vvslno .vvslname .vvslhin .vvslmake .vvslmod .vvslyear + 
.vvslton .vvslft .vvslin .vvslhp .vvsluse .vvsltype + 
.vvslprop .vvslhull .vvsleng .vvslfuel .vconstr .vdecal + 
-vemeyear .voffno .vhome .vcall .vvalue .vsuper .vmasts + 
-vsailno .vhlcolor .vtrceolor .vslcolor .vcbcolor .vdkcoavonmaes 
.vmarks 
end 
lf elgegeu then ; 
set pointer #1 el for vessel where veratneequ. = 
Jive te Oeeren 
load vessel 
Vl .v2Z .v3 .v4 .v5 .v6 .v7 .v8 .v9 .vl0 .vll .viZ . Vie 
-V14 .v15 .vl6 .vl7 .vl8 .v19 .v20 iv2Zl .v2Z .V2Z30 ee 
M25 sZG°.V2i segZev2Z9 Jvo0 . VS 
end 
endaa 
endif — 
set pointer #1 el for sar where folderno = .foldno 
Tf 61 e€qp0 gener 
set Var ditsar toy ae 
set var sl to sardate in #1 
set var s2 to sartime in #1 
set var s3 to sarlat in #1 
set var s4 to sarlong in #1 
set var s5 to sarnod in #1 
set var s6é to sarvhin in #1 
if sl ne .vsardate or s2 ne .vsartime or s3 ne .vsarlat or + 
s4 ne .vsarlong or s5 ne .vsarnod or s6 ne .vvslhin then 
Sel Van dlesdm arom. 
endif 
else 
Set Varedd esd tetom as 
endif 
if diftsanm eq) 7 ethea 
write "loading sar" 
load sar 
.vfoldno .vucn .vmucn .vsardate .vsarday .vsartime + 
-vsunrise .vsunset .vsarnod .vsarpob .vvslhin .vsarlat + 
-vsarlong .vdistoff .vimmed .vwinddir .vwindspd .vvisdist + 
.vclouds .vceiling .vseas .vswells 
end 
ends 
write "loading owvs1" 
load owvsl 
~vvslhin .vownid 
end | 
write "loading opvs1' 
load opvs 
.vvslhin .vopid 
end 
if e2yeq 0 then 
*(owner exists in database) 
write "changing values in owner'! 
delete rows from #2 
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else 
write "loading owner! 
endi 
load owners 
.vowlname .vowfname .vowml .vowaddr .vowcity .vowst .vowzip + 
.vowtelno .vowdob .vownid 
end 
Pomeeeed 0 then 
set pointer #2 e2 for owners whe ownid eq .owl0 
if e2 ne O then 
load owners 
-oWl .OW2 .OowW3 .OW4 .OoW5 .OW6G .OW7 .oW8 .OW9 .owl)0 
end 
endif 
endif 
if e3 eq O then 
eee oneor exists in database) 
write "changing yoo eee in operator" 
delete rows from #3 
else 
write "loading operator" 
set var vopcrse text 
endif 
load operator 
.voplname .vopfname .vopmi .vopaddr .vopcity .vopst .vopzip + 
.voptelno .vopdob .vopcrse .vopid 


end 
ie Bs eq) Omthen 
set Boece. Se e3 for operator where opid eq .opll 
1£f£ e3 ne O th 
load Seenaer 
pepe nagzm.Op2 O05 .OpemnOpo .OD6 .OD7m.0po .0p9..o0p10 + 
op 


sect, error messages on 
write " 
write "Return to correct data entered? (Y)" at 20 10 
Wetes ae correct only errors indicated by messages" + 
at 
fillin er using "(" at 20 42 
ie er tomis@on er eq '‘y" then 
set var review to "y" 
SEG Val Pg One 
set pointer #1 el for vessel where vslhin eq .vvslhin 
SEe POunter —2eZ for owners where ownid eq -vownid 
ee egeuest #3 e3 for operator where opid eq .vopid 


brea 
else 
newpage 
write "Removing duplicate entries from pee at 10 10 
write "Please sttand by 2: neces. cnn tee WB 12 


delete duplicates from vessel 
delete duplicates from owvsl] 
@elete duplicatesi trom opvsl 
delete duplicates from owners 
delete duplicates from operator 
endif 
else 


ewpage Baa 
write, "Load not performed. Required information missing." + 
at 

write "Required information includes:" at 10 

write "Sar Date, Folder Number, Unit Case Number" et 2 35 
write "Vessel Name, Sar Latitude, Sar Longitua@e” a 13 35 
Write "Sar Nature of Distress" at 14 35 

ies ge using "Press [ENTER] to return to data entry” + 

a 

get var pg to li 
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set var review to "y" 
break 
engi 
endif 
1f choice eq 1 oF cheace eqeZ when 
*X(enter sar units 
newpage | 
write "Enter sar units? (Y)" at 12 20 
fillin s_units, using) "(U Melee 
if s_units fails or s_units eq Y then 
SCC Var More Eo ce 
while more eq Y then 
set var vuwtime to .vsartime 
set var vuwdate to .vsardate 
set var vetadate to .vsardate 
set var vdateos to .vsardate 
set var valgdate to .vsardate 
set var vtowdate to .vsardate 
set var vdvmoord to .vsardate 
set var vsumoord to .vsardate 
Beye . 
write "Press [PGDN] to load data or [ESC] to quit" at 1 1 
draw sarform8 with all at 3 
edit var vunit vuwtime vuwdate voseta vetadate vostime + 
vdateos valgtime valgdate vtowtime vtowdate vdvmoort + 
vdvmoord vsumoort vsumoord return esc pgdn 
if #return eq pgdn then 
if voseta fails then 
clear vetadate 
set var vetadate date 
Serr 
if vostime fails then_ 
clear vdateos 
set var vdateos date 
endif 
1f valgtime fails then 
clear valgdate 
set var valgdate date 
endif 
if vtowtime fails then 
clear vtowdate 
set var vtowdate date 
endif 
1£ vdvmoort fails then 
clear vdvmoord 
set var vdvmoord date 
endif 
1£ vsumoort fails then 
clear vsumoord 
set var vsumoord date 
endif — 
set pointer #1 el for sarunits whe foldno eq .vfoldno and + 
unitname eq .vunit 
newpage 
if el eq 0 then 
tee "Duplicate entry not loaded! 
else 
write "Loading sarunits’ 
load sarunits | . 
-Vfoldno .vunit .vuwtime .vuwdate .voseta .vetadate + 
.vostime .vdateos .valgtime .valgdate .vtowtime + 
gy Coweace »vdvmoort .vdvmoord .vsumoort .vsumoord 
en 
endit ; 
write "More units to enter? (N)" at 23 20 
fillin mrunitspusing "(" at 23 41 
if mrunits fails or mrunits eq N then 
Set Yam more ton 
else 
clear vunit 
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clear voseta 
clear vostime 
clear valgtime 
clear vtowtime 
clear vdvmoort 
clear vsumoort 
endif 
endif 
if #return eq esc then 
set var more to N 
endif 
endwhile 
endif 
*(enter owner information) 
newpage 
write "Enter additional owners? (N)" at 12 20 
fillin addlownr using "(" at 12 45 
1f addlownr exists and addlownr eq Y then 
set var more to 'y'"' 
while more eq Y then 
newpage 
| set var vowlname to unk 
set var vowfname to unk | | . 
write "Press [PGDN] after entering initial information to + 
emeck if" at i 5 
Bee orner exists in database. Press [ESC] to quit! + 
| at 
draw sarform4 with all at 4 
edit var return esc pgdn 
if #return ne esc then 
while vowlname exists and vowfname exists then 


| set pointer #2 e2 for owners where ownlname = .vowlname + 
a ownfname = .vowfname 
| Jpage 
ahaa eZ $4 O then 
*(owner last/first name exists in database) 


set var vowml to ownmi in #2 
set var vowdob to owndob in #2 
set var vowaddr to ownaddr in #2 
set var vouge cy to owncity in #2 
set var vowst to ownstate in #2 
set var als to ownzip in #2 
set var vowtelno to owntelno in #2 
newpage 
draw sarform4 with all at 3 
draw sarformS with all at 8 
write "Correct owner? ce at 21 20 
fie owfound using "(at 21 35 
1f owfound exists and owfound eq Y then 
set var owl to .vowlname 
set var ow2 to .vowfname 
set var ow3 to ownmi in #2 
set var ow4 to ownaddr in #2 
set var ow5 to CEE Tey in #2 
set var ow6 to ownstate in #2 
set var ow7 to ownzlp in #2 
set var ow8 to owntelno in #2 
set var ow9 to owndob in #2 
set var owl0 to ownid in #2 
set var vownid to ownid in #2 
break 
endif 
next #2 e2 
endwhile 
if e2 ne O then 
newpage 
a oe owner does not exist in the database! + 
a 
fillin go using "Press [ENTER] to continue" at 9 5 
clear vowml 
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clear vowaddr 
clear View Gay 
set var vowst to CA 
clear voueey 
clear vowtelno 
set var vowdob to 01/01/1901 
compute vmaxown as max ownid from owners 
if vmaxown fails then 
set var vmaxown to 0 
engit 
set var vownid to .vmaxown + 1 
endif 
break 
endwhile 
label redoown 
newpage ; | 
write "Press [PGDN] to load data or [ESC] to quit" at 11 
draw sarform4 with all at 3 
ocean Saree with all at ae 
eqgit var return esc (ecue pg 
if #return eq pgdn ener 
newpage 
set error messages off 
Lf 62 96q)0 sac nu 
*(owner exists in database) 
write "changing values in owner"! 
delete rows from #2 
Soe . 
write "loading owner" 
eneants 
load owners 
-vowlname .vowfname .vowm1l .vowaddr .vowcity .vowst + 
5 ies .vowtelno .vowdob .vownid 
en 
ee 2 eG. Omemcn | 
Set ponies #2 e2 for owners where ownid eq .owl0 
if ez ne O then 
load owners | 
ape .owZ .OW3 .ow4 .ow5 .ow6 .ow7 .ow8 .ow9 .owl0 
en 
endif 
endif 
set error meéssagesnen 
write "Return to correct errors? (N)" at 15 10 
write "Note: correct only errors indicated by + 
messages © ateZuiious . . 
Fillin fixown using eo ome Oo 
1£ fixown exists and fixewn eq Y then 
ee redoown 
endif 


set pointer #2 e2 for owvsl where vhinown eq .vvslhin + 
and idowner eq .vownid ; 
*(check if record already exists) 
newpage 
1f e2 ne Q then 
load owvsl 
-vvslhin .vownid 


— 
endif 
endif 
endif 
write "More owners to enter? (N)" at 20 20 
fillin mrownrs using "(" at 20 42 
if mrownrs fails or mrownrs eq N then 
set var more to N 
Spersblg 
endwhile 
encaer 
newpage 7 
write "Enter additional operators? (N)" at 12 20 
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fillin addloper using "(" at 12 48 
1f addloper exists and addloper eq Y then 
set var more to "¥Y" 
while more eq Y then 
newpage 
*(enter operator information) | i ; 
write "Press [PGDN] after entering initial information to + 
emeck if" atl 5 | 
Bete poper a Lor exists in database. Press [ESC] to quit" + 
a iL 
set var voplname to unk 
set var vopfname to unk 
draw sarform6 with all at 4 
edit var return esc pgdn 
if #return ne esc then } 
While voplname exists and vopfname exists then 
set Fees #3 e3 for operator where oplname = + 
.voplname and opfname = .vopfname 
newpage 
while e3 eq 0 then 
*(operator last/first name exists in database) 
set var vopmi to opmi in #3 
set var vopdob to opdob in #3 
set var vopaddr to opaddr in #3 
set var vopcity to opcity in #3 
set var vopst to opstate in #3 
set var yer eAD to opzip in #3 | 
set var voptelno to optelno in #3 
set var vopid to opid in 
set var vopcrse to opcourse in #3 
newpage 
draw sarform6 with all at 3 
draw sarform?7 with all at 8 
write "Correct operator? (N)" at 21 20 
Fi lisneop round Usenge (vat 21 38 
1f opfound exists and opfound eq Y then 
set var opl to .voplname 
set var op2Z to .vopfname — 
set var op3 to opmi in #3 
set var op4 to opaddr in #3 
set var op5 to Speery in #3 
Set Vam op6 tosopstave 
set var op7 to eucib in #3 
set var op8 to optelno in #3 
set var op9 to opdob in #3 ~ 
set var opl0 to opcourse in #3 
set var opll to opid in #3 


break 
endif 
next #3 e3 
endwhile 
1£ e3 ne O then 
newpage 


ee Eg Pais operator does not exist in the database" + 


a 
fillan go usangel'Press [ENTER}etoscontinue"” at 9 5 
clear vopm1 
clear vopaddr 
clear epee 
sec var vopet “corca 
clear vop2i 
clear voptelno 
set var vopdob to 01/01/1901 
clear vopcrse 
compute VINOD as max opid from operator 
1£ vmaxop fails then 

set var vmaxop to 0 
endif 
set var vopid to .vmaxop + 1 
endif 
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break 
endwhile 
label redooper 
newpage 
write "Press [PGDN] to load data or [ESC] to quit" at 1 1 
draw sarform6 with all at 3 
nae san Forni with all at ne 
edit var nrecurieescspgupmag 
if #return eq pgdn Ben 
newpage 
set error messages off 
ties .ed Oechiets | 
ORE E AE exists in database) 
write "changing values in operator’! 
delete rows. from #3 
elsem 
write "loading operator" 
set var vopcrsemuexc 
endif 
load operator 
.voplname .vopfname .vopmi .vopaddr .vopcity .vopst + 
urns .voptelno .vopdob .vopcrse .vopid 


en 
1f e3 eq 0 then 
set pointer #3 e3 for operator where opid eq .opil 
1f e3 ne O then 
load operator | 
-opl .op2 .op2 .op3 .op4 .op5 .op6 .op7 .ops Jopems 
Feje so) joule 
end 
endif 
endif : . 
set error messages on 
write "Return to correct errors?.(N)" at 15 10 
ve cee correct only errors indicated by messages" + 
at 
fillin™fixopr using (gael Lomo 
1f fixopr exists and flxopr eq Y then 
qge° redooper 
endif 


set pointer #3 e3 for opvsl where vhinoper eq .vvslhin + 
and idoper eq .vopid 
X(check if record already exists) 
newpage 
if e3 ne O then 
load opvsl 
.vvsSlhin -voowrd 
end 
ences 
endif 
endif 
write "More opemdcors suemenuch- ue at 20 20 
fillin mropers using "(" at 20.4 
1f mropers fails or mropers eq N then 
Set Vaa moves con 
endif 
endwhile 
endif 
net eas . 
write "Enter another sar case? (Y)" at 12 20 
fillin cont using "(" at 12 44 
1f cont fails or cont eq Y then 
clear all variables 
SCC RVaAG Oo Gat Ou 
set var review to "N" 
set var loadmenu to "N'! 
break 
else 
set null -0- 
set var pg to 0 
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endif 
endif | 
1f choice eg 3 then 
set var review to "y'! 
gee Vat DOG™torl 
endif 
endwhile 
else 
newpage 
write "Enter another sar case? (Y)" at 12 20 
fillin cont using "(" at 12 44 
meecont fails or cont eq Y then 
clear all variables 
See var pe to 1 
set var review to "N" 
set var loadmenu to "N" 
else 
set error messages off 
set null -0- 
feu var pg tor0 
endif 
endif 
mpg eq 1 then 
qo o begin 
endif 
return 
et end ) 


S COMMAND 


ADD_SBD 
HR ( KRKKAKKAKKKAKKKKAKKKKKKKAK AKA KK KKAKKKKKKKK KKK KKK KKKKKKKK KKK KKKKAKK KAR 


Program: Add Sar with Boarding 

BUENO : © HR Cane and J D Allen 

Date Written: Juty loo? 

Deocriptien: This program allows the user to enter sar 
and boarding information. 

Tables Used: boarding, vessel, owners, operator, owvsl, 
opvsl, sar 

Temp Tables: none 

Reports Used: none 

Forms Used: cg4100al, cg4100a2, cg4100a3, cg4100a4, 


cg4100a5, cg4100a6, cg4100a7, cg4100a8, 
cg4100a9, sbdforml, sarforml, sarformé, 
sarform9, sarform5 


RARKKKKKKAKKKKERKKKKKRKEKKRRRKKKKKRKKARKRREKRKKKRKAKRKAKRKKRRREKRKRRAKRKRRKRKRKKRKRKRAAKK ) 


set error messages off 
set messages of 
set escape off 
newpage ; 
ieee "Program loading in progr@ss. Please stand by ........ *’ @t 10 10 
clear all variables 
met null ? 
Piini tats to 1. : 
*(initialize edit and load control variables) 
set var review to "N!! 
set var loadmenu to 'N!! 
label begin 
set var backup to N 
Bet var pgcount to 0 . 
while pg gt 0 then *(main loop) 
newpage 
Pye €q 1. then | 
*(enter boarding/vessel information) 
1f review eq N and backup eq N then 
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set var pgcount to l 
set var vbodate to .#date 
set var vbotime to 12:00:00 
set var vvsiname to unk . ee 
ey eae "Press {PGDN] after entering initial information to check + 
fe) ha 
write "vessel exists in database. Press [ESC] to quit" at 2 10 
draw cg4100al with all at 4 
oe var return esc pgdn 
else - 
WES cee [PGDN] after review/correction or [ESC] to quit" + 
ie, at 


a 
draw cg4100al with all at 4. 
Sore var vvslname vbodate vbotime vbono return esc pgdn 
endi 
if #return ne esc then 
while vvslhin exists then 
1f review equN andubackip seca letien | 
set pointer #1 el for vessel where vslhin = .vvslhin 
newpage 
set var vvslpob to 0 
set var vadult to 0 
set var vchild to 0 
1f el eq O then | 
*(vessel exists in ee 
set var vvslno to vslno in #1 
set var vvslname to vslname in #1 
set var vvslmake to vsimake in #1 
set var vvslmod to vslmodel in #1 
set var vvslyear to vslyear invel 
set var vvslton to vsltons in #1 
set var vvslft to vsllenft in #1 
set var vvslin to vsllenin in #1 
set var vvslhp to vslhp in #1 
set var vvsluse to vsluse in #1 
set var vvsltype to vsltype in #1 ° 
set var vv sa aue to vslprop in #1 
set var vvslhull to vslhull in #1 
set var vvsleng to vsleng in #1 
set var vvslfuel to vslfuel in #1 
set var vconstr to vslconst in #1 
set var vdecal to cmedecal in #1 
set var vemeyear to cihheyear in #1 
set var voffno to vsloffno in #1 
set var vhome to homeport in #1 
set var vcall to vvsicalleuieel 
set var vvalue to vslvalue in #1 
set var Vsuper tO VYslsuper sien 
set var vmasts to vslmasts in #1 
set var vsailno to sailno in #1 
set var vhicolor to hlcolor in #1 
set var vtrcolor to trcolor in #1 
set var vsicolor to slcolor in #1 
set var vcbcolor to cbcolor in #1 
set var vdkcolor to dkcolor in #1 
set var vmarks to vslmarks in #1 
set var vl .to vslno in #1 
set var v2 to vslname in #1 
set var v3 to vslhin in #1 
set var v4 to vslmake in #1 
set var v5 to vslmodel in #1 
set var v6 to Verneae in #1 
set var v7 to vsltons in #1 
set var v8 to vsllenft in #1 
set var v9 to vsllenin in #1 
set var v10 to vslhp in #1 
set var vll to vsluse in #1 
set var v12 to vsltype in #1 
set var v13 to vslprop in #1 
set var vl4 to vslhull in #1 
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set var v15 to vsleng_in #1 
set var v16 to vslfuel in #1 
set var vl17 to vsiconst in #1 
set var vl8 to cmedecal in #1 
set var v19 to cmeyear in #1 
set var v20 to vsloffno in #1 
set var v21 to homeport in #1 
set var v22 to vslcall in #1 
set var v23 to vsivalue in #1 
set var v24 to vslsuper in #1 
set var v25 to vslmasts in #1 
set var v26 to sailno in #1 
set var v27 to hlcolor in #1 
set var v28 to trcolor in #1 
set yar v29 toeslicolor in #1 
set var v30 to cbcolor in #1 
set var v3l to dkcolor in #1 
set var v32 to vslmarks in #1 
else . 
X(vessel does not exist in database) 
set var vvslmake to unk 
set var vvslmod to unk 
set var vvslyear text 
set var Ve eet to 1901 
set var vvslhp text 
set var vvslhp to 0 
set var vvsluse text 
set var vvsluse to 0 
set var vvsltype text 
set var vvsltype to 9 
| set var vvslprop text 
set var eM HO to 9 
set var vvslhull text 
. set. var vvslhull to 8 
set var vvsleng text 
set var vvsleng to 0 
set var vvslfuel text 
set var vvslfuel to 0 
set var vconstr text 
sét var vconstr to 0 
| set var vvslton to 0 
set var vvslft to 0 
set var vvslin to 0 
set var vdecal to N 


endif 
newpage 
pes aeeess [ESC] to quit or [PGDN] to move down a page" + 
a 
draw cg4100al with all at 3 
draw cg4100a2 with all at 10 
edit var return esc pgdn 
break 
endwhile 
endif 
endif 
Pog 6062 then | 
*(enter owner information) , 
1f review eq N and backup eq N then 
Set var pacount to 2 
set var vowlname to unk 
set var vowfname to unk 
= aries "Press [PGDN] after entering initial information to check + 
tr a 
write "owner exists in database. Press [ESC] to quit" at 2 10 
draw cg4100a3 with all at 4 
edit var return esc pgdn 
endif 
if #return ne esc then 
1f review eq N and backup eq N then 
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While vowlname exists and vowfname exists then 
set pointer #2 e2 for owners where ownlname = .vowlname and + 
ownfname = .vowfname 
newpage 
while e2 =e QO then 

*(owner Llast/first name exist in database) 
set var vowml to ownmi in #2 
set var vowdob to owndob in #2 
set var vowaddr to ownaddr in #2 
set var Veer EY to owncity in #2 
set var vowst to ownstate in #2 
set var VOwz AG to ownzip in #2 
set var vowtelno to owntelno in #2 
newpage | 
draw cg4100a3 with all at 3 
draw cg4100a4 with all at 8 
write “Correct owner? Hy at 21 20 
fillin owfound Using." (9 agiveaies 
1f owfound exists and owfound eq Y then 

set var owl to .vowlname 

set var ow2 to .vowfname 

set var ow3 to ownmi in #2 

set var ow4 to ownaddr in #2 

set var ow5 to own e ety in #2 

set var ow6 to ownstate in #2 

set var ow7 to ownzip in #2 

set var ow8 to owntelno in #2 

set var ow9 to owndob in #2 

set var owl0 to ownid in #2 

set var vownid to ownid in #2 


break 
endif 
next #2 e2 
endwhile 
if e2 ne O then 
newpage 


write "This owner does not exist in the database" ausous 
fillin go using "Press [ENTER] to continue" at 9 5 
clear vowml ; 
clear vowaddr 
clear vowcity 
Set var vowst to CA 
clear vowzZl1 
clear vowtelno 
set var vowdob to 01/01/1901 
clear vostatus 
compute vmaxown as max ownid from owners 
if vmaxown fails then 
set var vmaxown to 0 
endif : 
set var vownid to .vmaxown + 1 
endif 
break 
endwhile 
endif ; 
newpage | 
write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move + 
down a page” “ane a 
draw cg4100a3 with all at 3 
draw cg4100a4 with all at 8 
edit var return esc pgup pgdn 
endis 
Sncie 
1f pg eq 3 then 
x(enter operator information) 
1f review eq N and backup eq N then 
set var Poconne LOms 
1£f vostatus eq 1 then 
set var voplname to .vowlname 
set var vopfname to .vowfname 
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set var #return to pgdn 
else 
| set var voplname to unk 
_ set var vopfname to unk o> ae . . 
vate, "Press {PGDM| after entering initial information to + 
meecmeck 1f" at 1 5 . 
ee om cecrator exists in database. Press [ESC] to quit" + 
a 
draw cg4100a5 with all at 4 
eet var return esc pgdn 
endif 
endif 
meoeeturn ne €sc then 
if review eG N and backup eq N then 
n 


while vopIname exists and vopfname exists then 
set pointer #3 e3 for operator where oplname = .voplname and + 
opfname = .vopfname 
newpage 


while e3 eq 0 then . . 
*(operator last/first name exist in database) 
set var vopmi to opmi in #3 
set var vopdob to opdob in #3 
set var vopaddr to opaddr in #3 
set var Meretey Eomcpeucy I tS 
set var vopst to opstate in #3 
set var vopzip to opzip in #3 
set var voptelno to optelno in #3 
set var vopcrse to opcourse in #3 


newpage 
draw cg4100a5 with all at 3 
draw cg4100a6 with all at 8 
Write "Correct operator? (N)" at 21 20 
fillin opfound using "(" at 21 38 
as Be Pound exists and opfound eq Y then 
set var opl to .voplname 
set var op2:to .vopfname 
set var op3 to opmi in #3 
set var op4 to opaddr in #3 
set var op5 to opcity in #3 
set var op6 to opstate in #3 
set var op7 to oye in #3 
set var op8 to optelno in #3 
set var op9 to opdob in #3 
set var op10 to opcourse in #3 
set var opli to opid in #3 
set var vopid to opid in #3 


break 
endif . 
next #3 e3 
endwhile 
1£ e3 ne O then 


newpage 
write "This operator does not exist in the database" at 5 5 
Pie ge using "Prege, | ENTER] to continue” at 9 5 
1f vostatus eq 1 then . 
set var vopm1 to .vowml 
set var vopaddr to .vowaddr 
set var vopcity to .vowcity 
-“S58C varevopst to .Vowst 
set var vopzl1p text 
set var voneD to .vowzip 
Set Var voperelno text 
set var voptelno to .vowtelno 
set var vopcrse text 
_ set var vopdob to .vowdob 
else | 
clear vopml 
clear vopaddr 
clear vgbCury 
eet Var vopst to CA 


273 





clear vopzil 
clear voptelno 
set var vopdob to 01/01/1901 
endif 
clear vopcrse 
compute vmaxop as max opid from operator 
1f vmaxop fails then 
set var vmaxop to 0 
endif 
set var vopid to .vmaxop + 1 
endif 
break 
endwhile 
endif 
newpage 
write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move + 
dowh 4a page acu aa 
draw cg4100a5 with all at 3 
draw cg4100a6 with all at 8 
if vostatus eq 1 then 
cote var vopcrse return esc pgup pgdn 
else 
edit var return esc poupepgan 
endif 
endit 
eneda 
if pg eq 4 then . . 
x(enter boarding location information) 
1f review eq N and backup eq N then 
set var pgcount to 4 
set var vobsbody to text 
set var vobsbody to "Monterey Bay" 
set var vobcount to Monterey 
set var vobscity to Monterey 
set var vobstate to CA 
set var vebslat to 00.000 
set var vobslong to 000.000 
endif 
Write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move down + 
a pees att ie . 
draw ¢cg4100a7 with all at 3 
: edit var return esc pgup pgdn 
endif 
LE pO eqs menc ns a . 
*(enter boarding violation/unsafe condition information) 
1f review eq N and backup eq N then 
set val DPGEGOURE NEON. 
endi | ; 
write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move + 
down a) page seals 
. draw cg4100a8 with all at 3 
edit var return esc pgup pgdn 
endian 
1f pg eq 6 then . 
*(enter boarding officer information) 
1f review eq N and backup eq N then 
SG6 Var PGCountE Beowo 
Set Vary voounase ise 
set var vbounlt Eo "CG Croup eiicmeamay: 
set var vbodist text 
set var vbodist to ll 
set var vboopfac text 
set var vboopfac to 36268 
set var vbosrise to 06:00:00 
set var vbosset to 19:00:00 
set var vweapons to 0 
endif 
write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move + 
down a page” at ll. 
draw cg4100a9 with all at 3 
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edit var return esc pgup pgdn 
endif 
Lf pg éq 7 then . | 
po additional vessel information) 
if review eq N and backup eq N then 
set var pgcount to 7 
if el ne then 
set var vvalue to $0 
set var vmasts text 
set var vmasts to 0 
set var vslcolor to unk 
set var vhlcolor to unk 
set Var Vtircolor to unk 
set var vcbcolor to unk 
set var vdkcolor to unk 
emo 
Sie r 
write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move + 
down a page’ at1lie 
draw sbdforml with all at 3 
edit var voffno vhome vcall vvalue vsuper vmasts vslcolor vsailno + 
eo vtrcolor vcbcolor vdkcolor vmarks return esc pgup pgdn 
endi 
1f pg eq 8 then 
x(enter general sar information) 
iz review eq N and backup eq N then 
meee var pgcount to & 
set var vsardate to .vbodate 
set var vsartime to .vbotime 
set var vsarlat to .vobslat 
set var vsarlong -to .vobslong 
set var vdistoff to 0 
set var vsarpob to .vvslpob 
set var vsarday to .vboday 
endif 
Write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move + 
down a page" at ll 
draw sarforml with all at 3 
) edit var vfoldno vucn vmucn vsardate vsarday vsartime vsarnod + 
yaynec vsarlat vsarlong vdistoff vsarpob return esc pg 
endi 
1f pg eq 9 then 
*(enter sar weather information) 
1f review eq N and backup eq N then 
Semevar pgcount to 9 
set var vsunrise to .vbosrise 
| set var vsunset to .vbosset 
set var vceiling to 0 
set var vclouds to 0 
set var vvisdist to 0 
set var vwinddir to 0 
set var vwindspd to 0 
set var vseas to 0 
set var vswells to 0 
endif | 
Write "Press eo to quit or [PGUP] to move up a page" at 1 l 
draw sarform9 with all at 3 “a 
edit var vsunrise vsunset vceiling vclouds vvisdist vwinddir + 
vwindspd vseas vswells return esc pgup 
set var loadmenu to "Y" 
cf ar h 
1 return @€q@ pgup then 
set var backup Eo 2 
lak Pg gt 1 then 
sat Var pg to .pg - l 


else ' 
set var to 
endif oF 
epdift 
1f #return eq pgdn then 
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ite set ee thee 
var p —pa + 1 
A ose : Poa then 
var Re cic: O 
Snaie 
eee Se 
set Val (pdmeo 
endif 
endif 
if #return ae Eee then 
set var Pot 
set var ip to N 
endif 
endwhile *(end of main loop) 


newopaqge 


g 
write "Program loading in progress. 


if loadmenu eq ‘"Y" then 
set var choice to 0 


Please stand?by <Sr.. ' at Tome 


while choice lt 1 or choice gt 3 then 
newpage 
write "Data Load Options” atudaze 
WD Gs orale el atreeco 
write hah cer ioe ec0 
write "1-To load the data into the database" at 6 20 
write "2-To ignore the data entered" at 7 20 
Write "3-To go back and verify data entered" ateé 20 
Write "Your choice: ' at 10g 
tillin choice using 1! saree 
newpage 


if choice eq 1 then 


A(test for required information) 


set var test to "F!! 


1f vbodate exists and vbotime exists and ybono exists and + 
vvslname exists and vobslat exists and vobslong exists then 
if vsardate exists and vfoldno exists and vucn exists and + 
vvsiname exists and vsarlat exists and vsarlong exists and + 
vsarnod exists and vimmed exists then 


if vviol54 exists or vviol55 


vviol57 -exists 
vviol60 exists 


exists or vviol56 exists or + 
or vviol58 exists or vviol593 exists or + 
or vviol6l exists or vviol62 exists or + 


vviol63 exists then 


set var test 
endif 


Lo ep 


if vviol64 exists or vviol65 exists or vviol66 exists or + 


vVviol67 exists 


or vviol68 exists or vuns69 exists or vuns70 + 


exists or vuns7l1 exists or vuns72 exists or vuns73 exists then 


set var test 
endif 


to Ja 


if vuns74 exists or vuns75 exists or vuns76 exists or vuns/7/ -+ 
exists or vuns78 exists or vuns79 exists then 


sel Var @eece 
endirt 
1f test eq "T" 


to lipid 
then 


set error messages off 


if. el ea 0 


then 


*(vessel exists in database) 
write "changing values in vessel! 
delete rows from #1 


eee 
White “lodeding vessel” 

endi 

load vessel 
.vvslno .vvslname .vvslhin .vvslmake .vvslmod .vvslyear + 
.vvslton .vvslft .vvslin .vvslhp .vvsluse .vvsltype + 
.vvslprop .vvslhull .vvsleng .vvslfuel .vconstr .vdecal + 
.vemeyear .voffno .vhome .vcall .vvalue .vsuper .vmasts + 
-vSailno .vhlcolor .vtrcolor .vslcolor .vcbcolor + 


~vdkcolor .vmarks 


end 
if el eq O then 


2/6 


set pesoten #1 el for vessel whe vslhin eq .v3 
1f el ne O then 
load vessel 
wees .eee.yo .VO «v7 «VS pvd .vI0O .vll .vl2 + 
Poe .ViowevlG .Vil7 .vl8 .vi9°sv20 sgeezl .v22 + 
ee Van SO5 .v26 wv 27emw2s av29 .v30 .V3iew3zZ 
en 
endif 
ene . 
write "loading owvs1" 
load owvsl] . 
-vvslhin .vownid 


end | 
write "loading opvsl'"! 
load opvs 

.vvslhin .vopid 
end 


if vostatus eq 1 then 
load opown | 
.vownid .vopid 


end 
endif — , 
set ae vater #1 el for boarding where bono = .vbono 
me eq) 0 then 


Sem Varecditpo to |r! 
) set var bl to bodate in #1 
: set var b2 to botime in #1 
set var b3 to obslat in #1 
| set var b4 to obslong in #1 
1f bl ne .vbodate or b2 ne .vbotime or b3 ne .vobslat or + 
b4 ne .vobslong then 
See Var dityo to 77" 
endif 
else 
set var difbo to "T" 
| abgteblog 
| feat rbo eq i then 
| Write "loading boarding’! 
load boarding 
-vbodate .vbotime .vbono .vvslpob .vadult .vchild + 
-vostatus .vobsbody .vobcount .vobscity .vobstate + 
-vobslat .vobslong .vviol54 .vviol55 .vviol56 + | 
VVioleqgm. VWvlorooevvlelos -VVi0olG0 .yvilel6l .vviol62 + 
.vvi0l63 .vviol64 .vviol65 .vviol66 .vviol67 .vviol68 + 
.vuns69 .vuns70 .vuns71 .vuns72 .vuns73 .vuns74 + 
.vuns75 .vuns76 .vuns77 .vuns78 .vuns79 .vboreml + 
.vborem2 .vborem3 .vboname .vborate .vbounit .vbodist + 
-vboopfac .vboday .vbosrise .vbosset .vvslhin + 
. vweapons , 
end 
@ndif . 
set pointer Fl el fonesar where folderno = .vfoldno 
1f el eq O then 
Set var daefear to "FN 
set var sl to sardate in #1 
set var s2 to sartime in #1 
set var s3 to sarlat in #1 
set var s4 to sarlong in #1 
set var s5 to sarnod in #1 
fet var $6 to sarvhan in #1 . 
: 1£ S1 né .vsardate or sZ ne .vsartime or s3 ne .vsarlat + 
or s4 ne .vsarlong or s5 ne .vsarnod or s6 ne .vvslhin + 


Set var dipear’to,'T"' 
endif 
else 
SG var ditear to "Tl" 
endii 
| 1f difsar eq T then 
write "loading sar" 
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load sar 
-vfoldno .vucn .vmucn .vsardate .vsarday .vsartime + 
-vsunrise .vsunset .vsarnod .vsarpob .vvslhin + 
-vsarlat .vsarlong .vdistoff .vimmed .vwinddir + 
sap eee .vvisdist .vclouds .vceiling .vseas .vswells 
en 
enennt 
1f e2 eq O then 
*(owner.exists in database) 
write "changing values in owner" 
delete rows from #2 
else 
write "loading owner" 
endif 
load owners 
.vowlname .vowfname .vowmi .vowaddr .vowcity .vowst + 
, Vetere .vowtelno .vowdob .vownid 


en 
1f e2eeq Oeenen 
set pointer #2 e2 for owners whe ownid eq .owl0 
1f e2 ne O then 
load owners 
Bees -OW2Z .OW3 .OW4 .OW5 .OW6 .OW7 .OoW8 .oWw9 .owl)D 
en 
endif 
endif 
Pieced Jetwons | 
*(operator exists in database) 
write "changing values in operator'! 
delete rows from #3 
else 
Write "loading operator" 
endif 
load operator , 
.voplname .vopfname .vopmi .vopaddr .vopcity .vopst + 
-vopzip .voptelno .vopdob .vopcrse .vopid 


end 
1f e3 eq 0 then | 
set poraeee #3 e3 for operator where opid eq .opll 
1f e3 ne O then 
load operator 
-Opl .op2 .opZ .op3 .op4 .op5 .op6 .op/ .opS sop lme 
-Op10" .opll 
end 
endae 
endif 
Write "' " 
Set error messages on 
*(return option in case of entry/edit errors) 
Write "Return to correct data entered? (Y)" at 20 10 
was NOES correct only errors indicated by messages" + 
a 
fillin er using "(" at 20 42 
if ef fails or er eq.Y" then 
set var review to "Y" 
See Malalee i 
set pointer #1 el for vessel where vslhin eq .vvslhin 


“ 


set pointer #2 e2 for owners where ownid eq .vownid 
set posngee #3 e3 for operator where opid eq .vopid 
Drea 
else 
newpage 
write "Removing duplicate entries from tables" at 10 10 
write So edse stand By sc » egelegeieiais <a at 15 12 
delete duplicates from vessel 
delete duplicates from owvsl 
delete duplicates from opvsl 
delete duplicates from opown 
delete duplicates from owners 
delete duplicates from operator 
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endif 
endif 
endif 
else 
newpage _ 
ie not performed. Required information missing." + 
at 
faree 'Requiped information includes:""at 10° 30 
write "Boarding Date, Boaneing Time, Boarding Number" at 12 35 
ae —— Name, Boarding Latitude, Boarding Longitude" + 
at 
write "A Violation or Unsafe Condition" at 14 35 
write "Sar Date, Folder Number, Unit Case Number" at 15 35 
write 'Vessel Name; Sar Latitude, Sar Longitude” at 16 35 
write "Sar Nature of Distress" at 17 35 
palin de using "Press [ENTER] to return to data entry" + 
Selo 2 
set var pg to l 
set var review to "VY! 
break 
endif 
endif 
Memenoice 6€q 1 or choice eq Z then 
X(enter sar units) 
newpage _ 
Meeee ‘Enter sar units? (Y)" at 12 20 
fein S_units using "(" at 12 37 
1f s_units fails or s_units eq Y then 
See Var more to "Y" 
fibemmonesea Y then 
set var vuwtime to .vsartime 
set var vuwdate to .vsardate 
set var vetadate to .vsardate 
set var vdateos to .vsardate 
set var valgdate to .vsardate 
set var vtowdate to .vsardate 
set var vdvmoord to .vsardate 
set var vsumoord to .vsardate 


newer ge | 
Wiaiee Tess {PEDN| = to Lead data or TESC] to Guit"! at 1 1 
draw sarform8 with all at 3 
edit var vunit vuwtime vuwdate voseta vetadate vostime + 
vdateos valgtime valgdate vtowtime vtowdate vdvmoort + 
vdvmoord vsumoort vsumoord return esc pgdn 
at toeturn ea pgdn then 
1f voseta fails then 
clear vetadate 
set var vetadate date 
endif 
1f vostime fails then 
clear vdateos 
set var vdateos date 
endass 
1f valgtime fails then 
clear valgdate 
set var valgdate date 
endif 
1f vtowtime fails then 
clear vtowdate 
set var vtowdate date 
endif 
1f vdvmoort fails then 
clear vdvmoord 
set var vdvmoord date 
endif 
1f vsumoort fails then 
clear vsumoord 
set var vsumoord date 
endif | 
set pointer #1 el for sarunits whe foldno eq .vfoldno and + 


ar 


unitname eq .vunit 
newpage 
1f eb vege echen 
ee "Duplicate entry not loaded! 
else 
write "Loading sarunits' 
load sarunits 


-vfoldno .vunit .vuwtime .vuwdate .voseta .vetadate + 
.vostime .vdateos .valgqtime .valgdate .vtowtime + 
.vtowdate .vdvmoort .vdvmoord .vsumoort .vsumoord 


end 
enaae 
write "More units to enter? (N)" at 23 20 
fillinemrunits using "(Sat 2340 
if mrunits fails or mrunits eq N then 
set var more to N 
else 
clear vunit 
clear voseta 
clear vostime 
clear valgtime 
clear vtowtime 
clear vdvmoort 
clear vsumoort 
eiickece 
endif 
if #return eq esc then 
set var more touN 
endif — 
endwhile 
erie mt a 
A(enter additional owners) 
newpage oat 
write "Enter additional owners? (N)" at 12 20 
fillin addl_own using "(" at 12 45 
1f addl_own exists and addl_own eq Y then 
set Var Mores Coma. 
while more eq Y then 
set var vowlname to unk 
set var vowfname to unk 


check if" at 


Be eel ; > | | 
We ee ee eee [PGDN] after entering initial information to + 


write "owner exists in database. Press [ESC] to quit" at 2 10 


draw cg4100a3 with all at 4 
edit var return esc pgdn 
tf fheuulEn Newesccmenem 
while vowlname exists and vowfname exists then 
set pointer #2 e2 for owners where ownlname = 
and ownfname = .vowfname 
newpage 
While vez o9 OP then 
*X(owner last/first name exist in database) 
set var vowml to ownml in #2 
set var vowdob to owndob in #2 
set var vowaddr to ownaddr in #2 
set var vowcity to owncity in #2 
set var vowst to ownstate’ in #2 
set var ie to ownzip in #2 
set var vowtelno to owntelno in #2 
newpage ; 
draw cg4100a3 with all at 3 
draw cg4100a4 iy sete gered le pel tea 
write "Correct owner? cae at 21 20 
fillin owfound UsinaGGeecec ee 
1f owfound exists and owfound eq Y then 
set var owl to .vowlname 
set var ow2 to .vowfname 
set var ow3 to ownmi in #2 
set var ow4 to ownaddr in #2 
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-vowlname + 


set var ow5 to ae y in #2 
set var ow6 to ownstate in #2 
set var ow7 to quBZ1p in #2 
set var ow8 to owntelno in #2 
set var ow9 to owndob in #2 
set var owl0 to ownid in #2 
set var vownid to ownid in #2 
break 
| endif 
| next #2 e2 
endwhile 
if e2 ne O then 
newopage 
Wee ae owner does not exist in the database" + 
at 
fallin go using "Press [ENDER] to continue” at 9 5S 
clear vowml 
clear vowaddr 
clear vowcity 
set var vowst to CA 
clear vowzl 
clear vowtelno 
set var vowdob to 01/01/1901 
clear vostatus 
compute vmaxown as max ownid from owners 
1f vmaxown fails then 
set var vmaxown to 0 
endif . 
set var vownid to .vmaxown + 1 
endif 
break 
endwhile 
label redoown 
. newpage | : 
write "Press [PGDN] to load data or [ESC] to quit" at 1 l 
draw cg4100a3 with all at 3 
ara sarformS with all at be 
edit var return ese pgtip pg 
1f #return eq pgdn Wen 4 
| set error messages off 
. he age 
if e2-eq O then . 
*(owner exists in database) 
write "changing values in owner' 
delete rows from #2 
else 
write "loading owner" 
endif 
load owners 
-vowlname .vowfname .vowml .vowaddr .vowcity .vowst + 
.vowZip .vowtelno .vowdob .vownid 


en 
me "ez €q.0 then 
set pone #2 e2 for owners whe ownlid eq .owl0 
1f e2 ne O then 
load owners 
seu -OW2 .OW3 .OW4 .OWS .OW6 .OW7 .OW8B .OWI .oWwlD 
en 
endif 
endif 
set error messages on 
write "Return™to correct errors? (N)" at 15 10 
ee «ee a correct only errors indicated by messages" + 
a 
fil#iin fyxown using "(" at 15 36 
1f fixown exists and fixown eq Y then 
oto redoown 
endif 
set pointer #2 e2 for owvsl where vhinown eq .vvslhin + 
and idowner eq .vownid 


281 





*(check if record already exists) 
newpage 
1£f e2 ne O then 
load owvsl 
~vvslhin .vownid 
end 
endif 
endif 
endif 
write "More owners to enter? (N)" at 20 20 
fillin mrownrs_ using "(" at 20 42 
1f mrownrs fails or mrownrs eq N then 
Seize Var more Lorn 
endif 
endwhile 
endif a. 
*(enter additional operators) 
ney ace _— 
write "Enter additional operators? (N)" at 12 20 
fillin addl_opr using "("' at 12 48 
if addl_opr exists and addl_opr eq Y then 
Set Vanimoremroua: 
while more eq Y then 
set var voplname to unk 
set var vopfname to unk 
newpage a ee 
| write "Press [PGDN] after entering initial information to 
check if) =e | 
write "operator exists in database. Press [ESC] to quit!" + 


atez 1 
draw cg4100a5 with all at 4 
edit var return esc pgdn 
if #return ne esc then ” 
while voplname exists and vopfname exists_ then 


set pointer #3 e3 for operator where oplname = .voplname + 
and opfname = .vopfname 
newpage 


whine @3 eq O then 
*(operator last/first name exist in database) 
set var vopmi to opmi in #3 
set var vopdob to opdob in #3 
set var vopaddr to opaddr in #3 
set var vepesty to opcity in #3 
set var vopst to opstate in #3 
set var voReey to oer in #3 
set var voptelno to optelno in #3 
set var vopcrse to opcourse in #3 
newpage { 
draw cg4100a5 with all at 3 
draw cg4100a6 Wath all digs 
write "Correct operator? (N)" at 21 20 
fillin opfound usinge (lac eZzieee 
ae oR eoune exists and opfound eq Y then 
set var opl to .voplname 
set var op2 to .vopfname 
set var op3 to opmi in #3 
set var op4 to opaddr in #3 
seitevar Ops tosopeaity inets 
sek var op6 to opstate: amy se 
set var op7 to a in #3 
set var op8 to optelno in #3 
set var op9 to opdob in #3 
set var opl0 to opcourse in #3 
set var opll to opid in #3 
set var vopid to opid in #3 
break 
enawt 
nemt #5 e3 
endwhile 
1f e3 ne O then 
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newpage 
write." This operator does not exist in the database" 
at 
fillien go usang "Press: [BNTER] to continue" at) 5 
clear vopmi 
clear vopaddr 
clear okey 
set var vopst to CA 
clear Een 
clear voptelno 
clear vopcrse 
set var vopdob to 01/01/1901 
compute vmaxoper as max opid from operator 
1£ vmaxoper fails then 
set var vmaxoper to 0 

endif 
s€@ Var vopid to .vmaxoper 1 

endif 

break 

endwhile 
label redooper 


ewes . 
write "Press [PGDN] to load data or [ESC] to quit" atil1l 
draw cg4100a5 with all at 3 
draw cg4100a6 with all at 8 
edi Cavan neturnsese pgup pgdn 
if #return eq pgdn then 
newpage 
S€c @mmor messages off 
1f e3 eq O then | 
| ae ace exists in database) 
| write "changing values in operator" 
delete rows from #3 
| else 
write "loading operator" 
endif 
load operator : : 
-voplname .vopfname .vopmi .vopaddr .vopcity .vopst + 
gos -voptelno .vopdob .vopcrse .vopid 


en 
i @3@q 0 then 
set Bees #3 e3 for operator where opid eq .opil 
1f e3 ne O then 
load operator 
ieleaseee oc .OPae.0p4 ~0p5.0p6 .op/ .@eps .cep9 + 
2OpaO . Opel 
end 
@rdit’. 
enditr 
set error meesages on 
write "Return to correct errors? (N)" at 15 10 
pues oer correct only errors indicated by messages" + 
a 
Gillin feieer usdpee|' (| ste 5° 36 
1f fixopr exists and fixopr eq Y then 
anES redooper 
endif 
set pointer #3 e3 for opvsl where vhinoper eq .vvslhin + 
and idoper eq .vopid 
*(check if record already exists) 
newpage 
-1f e3 ne O then 
load opvsl 
-vvslhin .vopid 
end 
endif 
endif 
; endif 
: write "More operators to enter? - at 20 20 
fillin mropers using '(" at 20 4 
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1f mropers fails or mropers eq N then 
set var more to N 
endif 
endwhile 
endif 
newpage 
Write "Enter another sar with boarding? (Y)" at 12 20 
fillin cone using “(Nate lZe 
if cont fails omsconteed. enc mma 
*(reset variables to start condition) 
clear all variables 
set Val pace a 
set var review to "N! 
set var loadmenu to "N! 
break 
else 
set null -0- 
set vat pg» to~0 
endif. 
endif | 
1£ choice eq 3 then 
set var review to "Y" 
SEC Val Paco! 
endit 
endwhile 
else 
newpage | . 
write “Enter another sar with boarding? (Y¥)" at 12 20 
fillin Come Usinge (” acerca 
Lf cont fags) Of cont 6c. etic rs 
(reset variables to start condition) 
clear all variables 
Seti var peeco ! 
set var"review to "'N!" 
set var loadmenu to "N! 
else 
set error messages off 
Se Teles O= 
set. Var pg tome 
evo 
endif 
1f£ pg eq 1 then 
Bryec Begin 
elenier 


Pe Cun 


*( end ) 
S COMMAND 
ADD_SUT 
R ( RAAAKKAAKKKKAAKKRAKKARKKKKAKRKAKAK KK RKAK RK KK ARK AKA ARK AKARKK AAR RKAKKRKAR 
Program: Add Sar Units 
Author: | H R Lang and J D Allen 
Dacca Liten: August 1987 | 
Description: This program allows the user to. input sar 
unit data. 
Tables Used: Sar, sarunilts 
Temp Tables: none 
Reports Used: none 
Forms Used: sarform8 


RAKKKRKRKKRRKKKKRKKKKKKKKKEKKKKKKKKKKKKK KK RKKKA KKK KKK RAKRKARKRAAAKKKAKRKKKRE ) 


set error messages on 
set messages of 
set escape off 


newpage 
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write "Program loading in progress. Please stand by ........" at 10 10 
clear all variables 
set null ? 
set var more to Y 
set var vfoldno text 
set var vunit text . 
while more eq Y then *(main loop) 
set var done to Y 
newpage 


melee Enter folder number of sar case: " at 10 5 
mua Veoldno using " " at 10 37 

Write "Enter name of sar unit to be added: " at 15 5 
meeran vunit using " " at 15 40 


if vfoldno exists and vunit exists then 
set pointer #1 el for sar where folderno eq .vfoldno 
if el eq O then | 
set pointer #2 e2 for sarunits where foldno eq .vfoldno and + 
unitname eq .vunit 
1f e2 eq O then 
newpage | | . 
write "This record already exists in the database" at 15 15 
write "Press any key to continue" at 18 20 


set var vuwtime to sartime in #1 
Semevam Vuwdate to sardate in #1 
set var vetadate to sardate in #1 
set var vdateos to sardate in #1 
set var valgdate to sardate in #1 
set var vtowdate to sardate in #1 
\ set var vdvmoord to sardate in #1 
set var vsumoord to sardate in #1 
newpage 
write "Press [PGDN] to load data or [ESC] to quit" at ll 
draw sarform8 with all at 3 | 
edit var vunit vuwtime vuwdate voseta vetadate vostime vdateos + 
valgtime valgdate vtowtime vtowdate vdvmoort vdvmoord:vsumoort + 
vsumoord return esc pgdn 
if #return eq pgdn then 
if voseta fails then 
clear vetadate 
set var vetadate date 
endit . 
1f vostime fails then 
clear vdateos 
set var vdateos date 
endif 
ve valgtimesfarls» then 
clear vaigdate 
set var valgdate date 
Sriceiar 
if vtowtime fails then 
clear vtowdate 
set var vtowdate date 
endif 
1£ vdvmoort fails then 
clear vdvmoord 
set var vdvmoord date 
eerviaia £ | 
1f vsumoort fails then 
: clear vsumoord 
set var vsumoord date 
endif 
load sarunits . 
-vfoldno .vunit .vuwtime .vuwdate .voseta .vetadate + 
.vostime .vdateos .valqtime .valgdate .vtowtime + 
py ome te .vdvmoort .vdvmoord .vsumoort .vsumoord 
en 
endif 
endif 
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else 
newpage ; 
write "This folder number does not exist in the database" at 10 10 
Write "Do you wish to reenter folder number? (Y)" at 15 10 
fillin reenter using "(" at 15 48 
1f reenter fails or reenter eq Y then 
set var done co mW 
énazt 
endif 
enear 
1f done eq Y then 
newpage . 
write "More sar units to enter? eS at 15 20 
fillin mrunits using "(" at 15 4 
1f£ mrunits fails or mrunits eq N then 
SCtv dl Momentary 
else 
clear all variables 
Setlevar more Lou, 


endif 
endwhile *(end main loop) 
set error messages off 
set null -0- 


rep n 
*( end ) 
S COMMAND 
ADD_BRD 
K (RRAKAKKKKAKKKKKKAKAKKKKKKKKAKKKKKKKAKKKKKKKKAKKKKKAKKAKKKKAKKKKAKKAKKR 
Program: Add Bert cing 
Author: HR oa and J D Allen 
Date) Wrist ten July 1957 
Description: This program allows the user to input 
boarding information. 
Tables Used: beauenes vessel, owners,.operator, owvsl, 
opvsl, 
Temp Tables: — aoe 
Reports Used: none 
Forms Used: cg4100al, cg4100az, cg4100a3, cg4100a4, 


cg4100a5, cg4100a6, cg4100a7, cg4100a8, 
cg4100a9, sarform5 


RRKKKRKKAKKAKRAKKKKKKKAKKKKKKKKKKKKKKKKKKKRAKKKKKKKKAAKKAKKKRKEKKRKRKEKKKKKZ ) 


Seirecmrol Wencbsteachts on 
set messages of 
set escape off 
newpage 
write "Program loading in progress. Please stand by ........ "at TOmie 
clear all variables | 
set null ? 
set var pg to 1 
*(initialize edit and load control variables) 
Set Vai reva@ew CoN 
set var loadmenu to N 
label begin 
set var Backup to N 
set var fixhin to N 
set var pgcount to 0 
while pg gt 0 then *(main loop) 
newpage 
if papeq lwthen: 
*(enter boarding/vessel information) 
1f review eq N and backup eq N then 
set var pgcount to l 
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set var vbodate to .#date 
set var vbotime to 12:00:00 
set var vvslname to unk . a, . 
a ETes [PGDN] after entering initial information to check + 
1 at 
| write "vessel exists in database. Press [ESC] to quit" at 2 10 
draw cg4100al with all at 4 
mec var return esc pgdn 
else 
a [PGDN] after review/correction or [ESC] to quit" + 
at l 
draw cg4100al with all at 4 
if fixhin eq N then 
ale var vvslname vbodate vbotime vbono vvslno return esc pgdn 
else 
edit var return esc pgdn 
endif 
endif 
if #return ne esc then et 
1f review eq N and backup eq N or fixhin eq Y then 
Sem var pgcount to 1 
while vvslhin exists then 
set pointer #1 el for vessel where vslhin = .vvslhin 
newpage 
set var vvslpob to 0 
Sserevar vadult toed 
set var vchild to 0 
Pe eee Quo then | 
*(vessel exXists in Get abaee ) 
set var vvslno to vslno in #1 
set var vvslname to vslname in #1 
set var vvslmake to vslmake in #1 
set var vvslmod to vslmodel in #1 
set var Ms tee5 to vslyear in #1 
set var vvslton to vsltons in #1 
set var vvslft to vsllenft in #1 
set var vvslin to vsllenin in #1 
set var vvslhp to vslhp in #1 
set var vvsluse to vsluse in #1 
set var vvsltype to vsltype in #1 
set var ee to vslprop in #1 
set var vvslhull to vslhull in #1 
set var vvsleng to vsleng in #1 
set var vvslfuel to vslfuel in #1 
set var vconstr to vslconst in #1 
set var vdecal to cmedecal in #1 
set var vcmeyear to cmeyear in #1 
set var voffno to vsloffno in #1 
set var vhome to homeport in #1 
set var veall toevsleallein #1 
set var vvalue to vslvalue in #1 
set var vsuper to vslsuper in #1 
set var vmasts to vslmasts in #1 
set var vsailno to sailno in #1 
Ben Var vynicolor to hicolor in #1 
set var vtrcolor to trcolor in #1 
set var vsicolor to slcolor in #1 
set var vcbcolor to cbcolor in #1 
set var vdkcolor to dkcolor in #1 
set var vmarks to vslmarks in #1 
set var vl to vslno in #1 
set var v2 to vslname in #1 
set var v3 to vslhin in #1 
set var v4 to vslmake in #1 
set var v5 to vslmodel in #1 
set var v6 to vslyear in #1 
set var v7 to vsltons in #1 
set var v8 to vsllenft in #1 
set var v9 to vsllenin in #1 
set var vl0 to vslhp in #1 
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set var vll to vsluse in #1 
set var v1l2 to vsltyae in a 
set var v13 to vslprop in #1 
set var vl4 to vslhull in #1 
set var v15 to vsleng in #1 
set var vl6 to vslfuel in #1 
set var vl17 to vslconst in #1 
set var v18 to cmedecal in #1 
set var vl9 to cmeyear in #1 
set var v20 to vsloffno in #1 
set var v21 to homeport in #1 
set var v22 to vslcall in #1 
set var v23 to vslvalue in #1 
set var v24 to vslsuper in #1 
set var v25 to vslmasts in #1 
set var v26 to sailno in #1 
set var v27 to hlcolor in #1 
set var v28 to trcolor in #1 
set var v29 to slcolor in #1 
set var v30 to cbcolor in #1 
set var v3l1 to dkcolor in #1 
set var v32 to vslmarks in #1 
Soe | 
*(vessel does not exist in database) 
set var vvslmake to unk 
set var vvslmod to unk 
set var vvslvear text 
set var vvslyear to 1901 
set var vvslhp text 
set var vvslhp to 0 
set var vvsluse text 
set var vvsluse to 0 
set var vvsltype text 
set var vvsltype to 9 
set var vvslprop text 
set var vvslprop to 9 
set var vvslhull text. 
set var vvslhull to 8 
set var vvsleng text 
set var vvsleng to 0 
set var vvslfuel text 
set var vvslfuel to 0 
set var vconstr text 
set var vconstr to 0 
set var vvslton to 0 
set var vvslft to 0 
set var vvslin to 0 
set var vdecal to N 
endif 
break 
endwhile 
newpage ! 
write "Press ae to quit or [PGDN] to move down a page" at 1 1 
draw cg4100al with all at 3 
draw cg4100a2 with all at 10 
edit var return esc pgdn 
enige: - 
eticeen 
endif 
if pd .eqmemreiien | 
x(enter owner information) 
1f review eq N and backup eq N then 
Seti Var paqcount togZ 
set var vowlname to unk 
set var vowfname to unk < an 
ai auEe Ee "Press [PGDN] after entering initial information to check + 
LE" 
write "owner exists in database. Press [ESC] to quit" at 2 10 
draw cg4100a3 with all at 4 
edit var return esc pgdn 
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endif 
if #return ne esc then 
1f review eq N and backup eq N then 
while vowlname exists and vowfname exists then 


set pointer #2 e2 for owners where ownlname = .vowlname and + 
ownfname = .vowfname 
newpage 
while e2 eq O then 
* (owner tase eet name exist in database) 


set var vowml to ownml in #2 
| set var vowdob to owndob in #2 
set var vowaddr to ownaddr in #2 
set var vowcity to owncity in #2 
set var vowst to ownstate in #2 
' set var Menae to ownzip in #2 
set var vowtelno to owntelno in #2 
newpage 
draw cg4100a3 with all at 3 
draw cq4100a4 with all at 8 
write "Correct owner? os ae 21 20 
| feelin ~ewfeund using "(" at 21 35 
if owfound exists and owfound eq Y then 
set var owl to .vowlname 
set var ow2 to .vowfname 
set var ow3 to ownmi in #2 
set var ow4 to ownaddr in #2 
set var ow5 to owncity in #2 
set var ow6 to ownstate in #2 
set var ow7 to oun 2D in #2 
set var ow8 to owntelno in #2 
set var ow9 to owndob in #2 
set var owl0 to ownid in #2 
set var vownid to ownid in #2 


break 
Grdif 
next #2 e2 
endwhile =: 
1f e2 ne O then 
: newpage 


write 'This owner does not exist in the database" at 5 5 
helin goa using "PresseMER | fo continue” at 9 5 
clear vowml 
clear vowaddr 
clear vowcity 
Set Var vowst to CA 
clear yeu2 1D 
clear vowtelno 
set var vowdob to 01/01/1901 
clear vostatus : | 
compute vmaxown as max ownid from owners 
1f vmaxown fails then 
set var vmaxown to 0 
endif 
set var vownid to .vmaxown + 1 
endif 
break 
endwhile 
endif 
newpage 
write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move + 
down a page" at lil. 
draw cg4100a3 with all at 3 
draw cg4100a4 with all at 8 
edit var return esc pgup pgdn 
endif 
enoit 
1f pg eq 3 then . 
*(enter operator information) 
1f review eq N and backup eq N then 
set var pgcount to 3 
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if vostatus eq 1 then 
set var voplname to .vowlname 
set var vopfname to .vowfname 
set var #return to pgdn 
else ie 
write "Press [PGDN] after entering initial information to + 
check 1f aves | 
write eeu eee exists in database. Press [ESC] to quit" + 
a 
set var voplname to unk 
set var vopfname to unk 
draw cg4100a5 with all at 4 
edit var return esc pgdn 
Sncren 
Siiiermes 
if #return ne esc then 
if review <4 N and backup eq N then 
n 


while vopIname exists and voprname exists then 
set pointer #3 e3 for operator where oplname = .voplname and + 
opfname = .vopfname : 
newpage 


while e3 eq O then | . 
*(operator last/first name exist in database) 
set var vopmi to opmi in #3 
set var vopdob to opdob in #3 
set var vopaddr to opaddr in #3 
set var vopcity to opee a #3 
set var vopst to opstate in #3 
set var Veeee to opzip in #3 
set var voptelno to optelno in #3 
set var vopcrse to opcourse in #3 
newpage i 
draw cg4100a5 with all at 3 
draw cg4100a6 with all at 8 
write "Correct operator? (N)" at 21 20 
frllin optound wsinge'(! at eciees 
ie ope cuae exists and opfound eq Y then 
set var opl to .voplname 
set Var opz to <voptname 
set var op3 to opmi in #3 
set var op4 to opaddr in #3 
set var op5 to opcity in #3 
set var op6 to opstate in #3 
set var op/ to GaeP in #3 
set Var OpGe to ciireunc 
set var op9 to opdob in #3 
set var op10 to opcourse in #3 
set var opll to opid in #3 
set var vopid to opid in #3 
break 

endif 

next ts 63 

endwhile 

1f e3 ne O then 
nee a . 

write "This operator does not exist in the database" at 3 5 

fillin go using "Press [ENTER] to contimue™ at Jee 

lf VOStactus eq) iaeuen . 
set var vopmi to .vowml 
set var vopaddr to .vowaddr 
set var Medeor | to .vowcity 
set var vopst to .vowst 
SBC°VAl VOPZLD Osta am 
set var ven 2 to .vowzip 
set var voptelno to text 
set var voptelno to .vowtelno 
set var vopdob to .vowdob 


clear vopmi 
clear vopaddr 
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clear vepen iy 
Set Var=vopoe tO CA 
clear vopz1 
clear voptelno 
set var vopdob to 01/01/1901 
endif 
clear vopcrse 
compute VEE ZED as max opid from operator 
if vmaxop fails then 
set var vmaxop to 0 
enidasé 
set var vopid to .vmaxop + l 
endif 
break 
endwhile 
endif 
newpage . 
write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move + 
down a page" at ll. 
draw cg4100a5 with all at 3 
draw cg4100a6 with all at 8 
if vostatus eq 1 then 
oa var vopcrse return esc pgup pgdn 
else 
edit var return esc pgup pgdn 
endif 
endif 
eneat 
1f pg eq 4 then. | . 
*(enter boarding location information) 
if review eq N and backup eq N then 
set var pgcount to 4 
set var vobsbody to text 
set var vobsbody to "Monterey Bay" 
set var vobcount to Monterey 
set var vobscity to Monterey 
set var vobstate to CA 
set var vobslat to 00.000 
set var vobslong to 000.000 
endif 
write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move down + 
a pace” at 1 il ; 
draw cg4100a7 with all at 3 
Saeee Var return esc pgup pgdn 
endif 
ic pg ege> then. — 
*(enter boarding violation/unsafe condition information) 
1m review eq N and backup eq N then 
sem Va pgcount Co 5 
endif 
Write "Press [ESC] to quit, [PGUP] to move up, [PGDN] to move + 
down a page! + 


a 
draw cg4100a8 with all at 3 
edit var return esc pgup pgdn 
end ir 
me 0g €qy6" thén. | 7 
e(@nte@r boarding officer information) 
if review eq N and backup eq N then 
setyvarepgcount to 6 
set var vbounit text 
set var vbounit to "CG Group Monterey" 
set var vbodist text 
set var vbodist to 1l 
set var vboopfac text 
set var vboopfac to 36268 
set var vbosrise to 06:00:00 
set var vbosset to 19:00:00 
set var vweapons to 0 


| 





write "Press Lest 
draw cg4100a9 wit 
edit var return esc 
set var loadmenu to 
es : 
a return eq pg 
set var “backup 


iG Pg gt 1 then 
Varo pg COG. 
else 


set var EOcr 
endif ee 
endif 


to quits or [PGUP] to move up a page" at 
all at 


igure 


2 


1 


1 


ade gepeeurn ea pga then 


on var a toe. can 


if pgcoun 
se 


Sel VaieeeG bo 6 
ence 
endif 
1f #return eq esc then 
set var pg to 0 
endif 
endwhile 
newpaqce 


write "Program loading in progress. 


1f loadmenu eq '"Y" then 
set var choice to 0 


while choice lt 1 or choice 


newpa 
write 
Weave 
write. 
write 
write 
write "3-To go back a 
write "Your choice: " 
fillin chozee using " 
newpage 

1f choice eq 1 then 


ge 
Data Load Opti 


‘oo at 5 2 
W1l=tO loacacic 


lt .pg then 
var backup to N 


*(end of main loop) 


Please stance py i. ." at TOs 


gt 3 then 


at 2 20 
at 3 20 


into the database" at 6 20 


ons’ 


0 
data 


"2-To ignore the data entered! at 7 20 


nd verify data entered! at 8 20 
at 10 2 


i acess 


*(test for required information) 


set var test to "'F!! 
if vbodate exists a 


- vvslname exists and vobslat exists and vobslong exists 


vvslhin exists then 
if vviol54 exists 
vviol57 exists or 
exists or vviol6él 
set var test to 
endif 
1f vviol64 exists 
vviol67 exists or 
exists or vuns7l e 
set var test to 
endif 
if vuns74 exists o 
exists or vuns78 e 
set var test to 
endif 
if test eq "T" the 
Set ebron arta 
if el eq 0 then 
*(vessel exist 
write "changin 
delete rows fr 
else 
write "loading 


nd vbotime exists and vbono exists anda 
and + 


or vviol5S exists or vviol56 exists 
vviol58 exists or vviol59 exists or 
cxnsts or vviol62 exists or vviol63 


OL a4 
vviol60 + 
exists then 


or vviol65 exists or vviol66 exists or + 
VV1i0168 exists or vuns69 exists or vuns70 + 
fais ts or vuns72 exists orf vuns73 exists then 


r vuns75 exists or vuns76 exists or vuns77 + 
xists or vuns79 exists then 
peat 


n 
es off 


s in database) 
g values in vessel" 
om 


vessel]!!! 
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set var voffno text 
set var vhome text 
set var vcall text 
set var vvalue dollar 
set var vvalue to $0 
set var vsuper text 
Set Var Vmasts text 
set var vsalilno text 
set var vhlcolor to unk 
set var vtrcolor to unk 
set var vslcolor to unk 
set var vcbcolor to unk 
set var vdkcolor to unk 
set var vmarks text 
endif 
load vessel 
.vvslno .vvslname .vvslhin .vvslmake .vvslmod .vvslyear + 
.vvslton .vvslft .vvslin .vvslhp .vvsluse .vvsltype + 
.vvslprop .vvslhull .vvsleng .vvslfuel .vconstr .vdecal + 
.vemeyear .voffno .vhome .vcall .vvalue .vsuper .vmasts + 
Wecmeeno .viLeoeror .vercolor .vsicolor .vcbcolor cvdkcolor + 
.vmarks 
end 
ee ef eg 0 then 
Set pointer #1 el for vessel whe vslhin eq .v3 
if el ne O then 
: load vessel 
: oe eee Veo VO ey] .V8 .v9 .V10 .vll .v1l2Z"+ 
. ao ee Oe VO Vi ieemero VL. VZ0m V2 .vZ2Z .v2Z3 (+ 
Boe 2 Ome eo. 2) osviee).V2Z9 .V350 .VSlLi.v3Z 
} end 
| endl 
endif | 
write "loading owvsl"! 
load owvsl 3 
.vvslhin .vownid 
end 
write "loading opvsl"! 
load opvsl . 
.vvslhin .vopid 
end 
1f vostatus eq 1 then 
load opown ; 
-vownid .vopid 


end 
endif 
set See #1 el for boarding where bono = .vbono 
1f el eq O then 


Se Voleecrr DOS tou Er" 
set var bl to bodate in #1 
set var b2 to botime in #1 
set var b3 to obslat in #1 
set var b4 to obslong in #1 
1f bl ne .vbodate or b2 ne .vbotime or b3 ne .vobslat or + 
b4 ne .vobslong then 
Semevar’ ditposto i 
endif 
else | 
set var difpo te "Tl 
efida f 
at Gree @¢ Tethen 
write “loading boarding" 
load boarding 
.vbodate .vbotime .vbono .vvslpob .vadult .vchild + 
-vostatus .vobsbody .vobcount .vobscity .vobstate + 
.vobslat .vobslong .vviol54 .vviol55 .vviol56 .vviol57 + 
~VVEOUSS .vv101l59 .vviel60vviel6l «yvnel6Z -vviol63 + 
.vviol64 .vviol65 .vviol66 .vviol67 .vviol68 .vuns69 + 
.vuns70 .vuns71 .vuns72 .vuns73 .vuns74 .vuns75 .vuns76 + 
.vuns77 .vuns78 .vuns79 .vboreml .vborem2 .vborem3 + 
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-vboname .vborate .vbounit .vbodist .vboopfac .vboday + 


.vbosrise .vbosset .vvslhin .vweapons 


end 
endif 


Lie 2eou0 mien ia 
*(owner exists in database) 
write "changing values in owner! 
delete rows from #2 


else 


write "loading owner'! 


endif 


load owners 
.vowlname .vowfname .vowmi .vowaddr .vowcity .vowst .vowzZip + 


-vowtelno 


end 

1f e2 eq O then 
set pointer #2 e2 for owners whe ownid eq .owl0 

ne 0 then 

load owners 


if e 


owl .owZ2 .ow3: .ow4 


end 
endif 
endif 


1fje3. eq 0 7'nen, | 
bee exists in database) 


wri 


else 


e "changing 
delete rows from 


-vowdob .vownid 


.ow5 .ow6 


write "loading operator” 


endif 


load operator 


.voplname .vopfname .vopmi .vopaddr 
.voptelno .vopdob .vopcrse .vopld 


end 
1£ e3 eq 0 then 


if @3. 


set error 


write " 


inter #3 e3 for o 


ne Q then 
load operator 


Op 


1 
1 


Ressages on 


ow? 


values in operator" 
#3 


.ow8 .ow9 .owld 


svopcity .vopst .vopzZiem, 


perator where opid eq .opll 


Noe .op2 .op3 .op4 .op5 .op6é 


.op/ .op8™.op9™. opwems 


*(return option in case of entry/edit errors) 
write "Return to correct data entered? (Y)" at 20 10 


Write "Note: 


at i227 5 


fillin ereusing “(SectezOm ez 
if er fails or er eq "Y" then 
Set Var bevVieweco 110 


set var 


g to | 


correct only errors indicated by messages”? 


set pointer #1 el for vessel where vslhin eq .vvslhin 
set pointer #2 e2 for owners where ownld eq .vownid 
set poser #3 e3 for operator where opid eq .vopid. 


brea 
else 
newpa 


ge 


Write "Removing duplicate entries from 
write "Please stand by.........4. 


delete 
delete 
delete 
delete 
delete 
aerate 
enaien 
endif 
else 


duplicates 
duplicates 
duplicates 
duplicates 
duplicates 
duplicates 


from 
from 
from 
from 
from 
from 


vessel 
owvsl 
opvsl 
opown 
owners 
operator 
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. 


tables' at 10 10 
iat 15 


a 


newReds . | | a 
rs ee not performed. Required information missing." + 
fe 


write "Required information includes:" at 10 30 
write "Boarding Date, Bes ecrng Time, Boarding Number” at 12 35 
a 


write "Vessel Name, Boarding 


foes 3) 


titude, Boarding Longitude" + 


write "Vessel HIN, A Violation or Unsafe Condition" at 14 35 


mi Lin go eg "Press 
set var pg to 
set var reviéw to Y 
ef vecthin fails «then 

Setevarm fizhin to Y 

endit 
break 

endif 

endif 


[ENTER] to return to data entry’ at 16 25 


if choice eee or choice eq 2 then 


A(enter a 
newpage 


itional owners) 


write "Enter additional owners? (N)" at 12 20 
fillin addl_own using "(" at 12 45 
1f addl_own exists and addl_own eq Y then 


Zecavadr more Co "Y" 

while more eq Y then 
set var vowlname to 
set var vowfname to 


newpage 
wri "Press [PGDN] 
ee L. 5 . 
write "owner exists 
at 2 10 


emeeck. if" 


unk 
unk 


after entering initial information to + 


in database. Press [ESC] to quit" + 


draw cg4100a3 with all at 4 
Gait var return esc pgdn 
if #return ne esc then ' 
while vowlname exists and vowfname exists then 


set pointer #2 e2 for owners where ownlname = 
. vowfname 


and ownfname = 


.vowlname + 


newpage 
vie e2 7 O then 
a 


* (owner 
set 
set 
set 
set 
set 


var 
var 
var 
var 
var 
set var 
set var 
newpage 


Vvowm.l 


vowst 
VOWZ1L 
vowte 


vowc1t 


P to ownZl 
n 


st/first name exist in database) 


to ownml in #2 


vowdob to owndob in #2 

vowaddr to ownaddr in #2 

Y to owncity in #2 
O 


ownstate in #2 
in #2 
o to owntelno in #2 


draw cg4100a3 with all at 3 
draw cg4100a4 with all at 8 


write 


rite, "Correct qwner? 
fillin owfound using " 


i ee. 721. 20 
nee a Se 


1f owfound exists and owfound eq Y then 


owl 
Owz2 
ow3 
ow4 
ow5 
ow6 
ow? 
ows 
ow9 


set 
set 
set 
set 
set 
set 
set 
set 
set 


var 
var 
var 
var 
var 
var 
var 
var 
var 
set var 
set var 
break 
endif 
next #2 e2 
endwhile 
if e2 ne O then 


to .vowlname 

. vowfname 
ownmi in #2 
ownaddr in #2 
sei, in #2 
ownstate in #2 
ownzip in #2 
owntelno in #2 
to owndob in #2 


owl0 to ownid in #2 
vownid to ownid in #2 
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newpage | 
write "This owner does not exist in the database" at 5 5 
Fillin go using "Press [ENTER] to continue” at 9° 5 
clear vowml 
clear vowaddr 
clear vowe sy 
set var vowst to CA 
clear VionaED 
clear vowtelno 
set var vowdob to 01/01/1901 
compute vmaxown as max ownid from owners 
1f vmaxown fails then 
set var vmaxown to 0 
endif 
set var vownid to .vmaxown + 1 
endif 
break 
endwhile 
label redoown 
newpage 
write "Press [PGDN] to load data or [ESC] to quit" at 11 
draw cg4100a3 with all at 3 
draw sarform5 with all at 8 
edit Var Keturn ese PUP pgdn 
1f #return eq pgdn then 
newpage 
set error messages off 
Ti 62 eq Oseien. 
*(owner exists in database) 
write "changing values in owner" 
delete rows from #2 
else 
write "loading owner" 
endif 
load owners 
-vowlname .vowfname .vowm1i .vowaddr .vowcity .vowst + 
Pa .vowtelno .vowdob .vownid 
en 
Pie e2 €que chen 
set pointer #2 e2 for owners where ownid eq .owl0 
if eZ ne O then 
load owners 
owe -OW2Z .OW3 .OW4 .ow5 .OW6 .OW7 .OW8 .oWw9 .owl1d 
en 
endif 
etrelaee 
set error messdges@on 
write "Retumhmto CobRect GrrorpseGh  ccimtomne 
Wenes Bur! correct only errors indicated by messages" + 
a 
fillin fixown using 'W@) ae 15.36 
1f fixown exists and fixown eq Y then | 
set pointer #2 e2 for owners where ownid eq .vownid 
ieee redoown 
endif 


set pointer #2 e2 for owvsl where vhinown eq .vvslhin + 
and idowner eq .vownid 
*X(check if record already exists) 
newpage | 
if eZ ne O then 
load owvsl 
-vvslhin .vownid 
end 
endif 
alate ble 
engan 
write "More owners toventers a@l at 20 020 
fillin mrownrs using "(" at 20 42 
1f mrownrs fails or mrownrs eq N then 
set var more to N 
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endif 
endwhile 
endif ew: 
*(enter additional operators) 


ena a 
write "Enter additional operators? (N)" at 12 20 
feelin addl_opr using "(" at 12 48 
if addl_opr exists and addl_opr eq Y then 
Set var more to '"'_Y" 
while more eq Y then 
set var voplname to unk 
set var vopfname to unk 
newpage wie . 
write "Press [PGDN] after entering initial information to + 
Emeek it" at 1 5 . 
Be eencec ater exists in database. Press [ESC] to quit!" + 
a 1 
draw cg4100a5 with all at 4 
edit var return esc pgdn 
Peeemeeunmeme esc then 
while voplname exists and vopfname exists then 


set pointer #3 e3 for operator where oplname = .voplname + 
and opfname = .vopfname 
newpage 


while e3 eq 0 then 
*(operator last/first name exist in database) 
set var vopmi to opm1 in. 
set var vopdob to opdob in #3 
set var vopaddr to opaddr.in #3 
set var vener to Bee eeyatn #3 
set var vopst to opstate in #3 
set var Vp eer to opzip in #3 
set var voptelno to optelno in #3 
set var vopcrse to opcourse in #3 
newpage 
draw cg4100a5 with all at 3 
draw cg4100a6é With all at 8 
nrELe. Correct operator? (N)'' at 21 20 
fLlilin opfouncusang "("' at 2138 
ie Boe exists and opfound eq Y then 
set var opl to .voplname 
set var op2 to .vopfname 
set var op3 to opmi in #3 
set var op4 to opaddr in #3 
set var op5 to opcity in #3 
set var op6 to opstate in #3 
set Varwep/ tomeezEp In #2 
set var op8 to optelno in #3 
set var op9 to opdob in #3 
set var opl0 to opcourse in #3 
set var opll to opid in #3 
set var vopid to opid in #3 
break 
endit 
next #3 e3 
endwhile 
Tf €3 ne®.0 Ghén 
newpage 
wee, Fas operator does not exist in the database" + 
a 
it an go using "Preés (ENDRR] to continte” at 9 5 
clear vopmi 
clear vopaddr 
clear vores 
set var vopst to CA 
clear voReaD 
clear voptelno 
clear vopcrse 
Set var vopdob to 01/01/1901 
compute vmaxoper as max opid from operator 


2a 


1f vmaxoper fails then 
set var vmaxoper to 0 
endif 
set var vopid to .vmaxoper + 1 
endif 
break 
endwhile 
label redooper 
newpage 
write "Press [PGDN] to load data or [ESC]= towquar ssc 
draw cg4100a5 with all at 3 
draw cg4100a6 with all at 8 
edit var return esc PeuP pgdn 
1£ #return eq pgdn t 
newpage 
set error messages off 
if tc eq 0 then 
Reais exists in database) 
write "changing values in operator" 
delete rows from #3 
else 
write "loading operator' 
endif 
load operator: . 
.vopiname .vopfname .vopmi .vopaddr .vopcity .vopst + 
.VOpzip -voptelno -vopdob .voperse .vopid 


ite e3 eq 0 then 
oe Deg #3 e3 for operator where opid eq .opll 
ne 0 then 
* Sa operator 
Mejoull  Opce nee. .op3 .op4 .op5 .op6 .op7 .ops .opam: 
-0p10 Om 
end 
endif 
endif 
set error messages on 
write "Return to correct errors? (N)" at 15 10 
weate pees correct only errors indicated’ by messages! + 
at 
fFillin’ fixopReyusing Cae om 
1r f1xX0pr exists and frxoer eq) Y jenen 
set pointer #3 e3 for operator where opid eq .vopid 
antes redooper 


Soe pointer #3 e3 for opvsl where vhinoper eq .vvslhin + 
and idopéer equ. voedwd 
*(check if record already exists) 
newpage ) 
1£f e3 ne O then 
load opvsl 
.vvslhin .vopid 
end 
endif 
endif 
endif 
write "More operators to enter? i ate 2020 
Fillin mropers using "(" at 20 45 
1f mropers fails or mropers eq N then 
Set Var mMOrertoeN 
endif 
endwhile 
endif 
HSh age 
write "Enter another ere i (Y)" at 12 20 
filigmeeont. usine a sac 
1f cont fails or cont eq Y then 
*(reset variables to start condition) 
clear all variables 
set var pg tol 
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set var review to ''N! 
set var loadmenu to "N'! 
break 
else 
set null -0- 
set var pg to 0 
endif 
endif 
1£f choice eq 3 then 
set var review to "y'"! 
set var pg to l 
end1 
endwhile 
else 
newpage 
write "Enter another boarding? (Y)" at 12 20 
fillin cont using "(" at 12 44 
teeecomt fails or cont eq Y then | 
*(reset variables to start condition) 
clear all variables 
See var pg Co l 
set var review to '"N'!! 
set var loadmenu to '"N'!! 
else 
set error messages off 
set null -0- 
See Var pg to 0 
endif 
endif 
te PO yag \ then 
ap o begin 
endif 


return 
*( end ) 
SCOMMAND 
ADD_OWNR 
K (KRARKAAAKAKARARKARAKKKARKRKRKK RK KKK KEK AK KA RKAKKRARERK AERA RERERR RK RRRKRK AA 
Program: Add Owner 
Author: | H R Lang and J D Allen 
Date Written: July 1387 ; 
Description: This program allows the user to input 
additional owner information. 
Tables Used: vessel, owners, owvs 
Temp Tables: none 
Reports Used: none 
Forms Used: ownrmodl, ownrmod2 


RAKRKKKRKKKKKKKAKKKKKKAKRKRKKRKRKKRKKKKAKKKKKKKKKKKKK RK KKK AKKKKKEKKKKKRKKKA ) 


set error messages on 
set messages of 
set escape off 
newpage 
alte “Program loading in progreés.. . Please Stand by ..i.... ™~&tE 1O 10 
Clear all variables 
sét null ? 
set var vvslhin text 
oo Var more Co Y 
while more eq Y then *(main loop) 
Set. var done to Y 
newpage 
Write "Enter HIN of vessel owned: " at 10 10 
fillin vvslhin using" " at 10 36 
1£ vvslhan eZists then . 
set pointer #1 el for vessel where vslhin eq .vvslhin 
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if el oa. QO then 


Aten write" "Press [PGDN] after entering initial information to check + 
zi a 
write "owner exists in database. Press [ESC] to quit" at 2 10 
draw ownrmodl with all at 4 
edit var return esc pgo gdn 
if #return eq pgdn t 
1£f vowlname exists aaa vowfname exists then 
set pointer #2 e2 for owners where ownlname = .vowlname and + 
ownfname = .vowfname 
aie e2 ae O then 
(owner last/first name exist in database) 
see var vowmi to ownmi in #2 
set var vowdob to owndob in #2 
set var vowaddr to ownaddr in.#2 
set var Owe a to owncity in #2 
set var vowst to ownstate in #2 
set var vows to ownzip in #2 
set var vowtelno to owntelno in #2 
newpage 
Graw ownrmodl with all at 3 
draw ownrmod2 with all at 8 
write "Correct owner? ce at 21 20 
fillin owgeund usange!'(" at 21 35 
1a eweoung eXists and owfound eq Y then 


write’! "This owner already exists in the database" at 10 10 
See var vownid to ownid in #2 
set pointer #3 e3 for owvsl where vhinown eq .vvslhin + 
and idowner eq .vownid 
if e3 ne O then 
load owvsl 
~vvslhin .vownid 
end 
write "The new owner-vessel record has been created! + 
aie toe LO 
endif 
break 
endif 
next #2 e2 
endwhile 
1f e2 ne 0 then 
clear vowmi 
clear vowaddr 
clear vouc aay 
set var vows t tomes 
clear eee 
clear vowtelno 
set var vowdob to 01/01/1901 
clear vostatus 
compute vmaxown as max ownid from owners 
if vmaxown fails then 
set var vmaxown to 0 
endif 
set var vownid to .vmaxown + l 
newpage 
write "Press [PGDN] to load data or [ESC] to quit" at 11 
draw ownrmodl with all at 3 
draw ownrmod2 with all <i 8 
edit var rl eoG pgan 
1f #return eq c 
set var out 
set var loadok a N 
while loadok eq N then 
newpage 
load owners 
-vowlname .vowfname .vowmi .vowaddr .vowcity .vowst + 
ener .vowtelno .vowdob .vownid 
en 
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write "Return to correct errors? (N)" at 10 10 
write "Note: correct only errors indicated by + 


un 


messages" at 15 


riddin er using "(" at BON36 
if er fails or er eq N then 
set var loadok to Y 
set var done to Y 
eles. 
*(edit record again) 


aaa | 
a ie [PGDN] to load data or [ESC] to quit" + 
a 
draw ownrmodl with all at 3 
draw ownrmod2 with all at 8 
Galt Varenhecirn esc padn 
1f #return eq esc then 
set var out to Y 
break 
endif 
endif 
endwhile 
1f out eq N then 
load owvsl 
.vvslhin .vownid 
end 
endaf 
endif 
endir 
endif 
endif 
else 
ne 


oe, 
veiee “This HIN doesenot exist) im the database’ at 10.10 
write "Do you wish to reenter the HIN? (Y)" at 15 10 
fillin reenter using "(" at 15 42 
1f reenter fails or reenter eq Y then 
set var done to N 
endif 
endif 
Set 
1f done eq Y then 
newpage 
Write "More owners to be entered? (N)" at 12 20 
fillin mrownrs using "(" at 12 47 
if mrownrs fails or mrownrs eq N then 
set var more to N 
: else 
| clear all variables 
Sem Var more to Y 
endit 
endif 
endwhile *(end main loop) 
sét error messages on 
se null -0- 
return 
*( end ) 
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APPENDIX H 
MODIFY SOURCE CODE 


$ COMMAND 


MODMAIN 
K (KAKKKKKKKKK KKK KKK KKKKKKK KEK RRR RRR KER KEKE ERE RR RRR KKKKK KEKE AKER 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


MODIFY MAIN MENU and APPLICATIONS 


Author : Jon D. Allen, LT, USCG 
Heidi R. Lang, LT, USN 
AUGUST 1987 


RAKKRKKKKKKKKKKKKA KKK RKKKAKKRKKKKAK KKK KKK KAKAKRRKKKA KK RRKKAKRRKRKKKRRKRKKER RZ ) 


set messages off 
set escape off 
newpage 
clear all variables 
set var pick3 integer 
newpage 
choose pick3 from mod_menu in modify..apx 
1f pick3 eq 0 then 
quit to restmod.cmd 
endif 
1£ pick3 eq ljthenm 
run mod_sar in modify.apx 
quit to restmod.cm 
endif 
If D1ckS eqmewenew 
run mod_brd in modify.apx 
quit to restmod.cmd 
endif 
Lf picks .equemeqca . 
run mod_vsl in modify.apx 
quit to restmod.cmd 
endif | 
1f pick3 eq 4 then . 
run mod_ouey in modify.apx 
- quit to restmod.cmd 
endif 
Lf prek3 e@ S@then 
run mod_sut in modify.apx 
quit to restmod.cmd 
Smit. - 
1f prck3 eq Gene 
run am_vint in modify.apx 
quit to restmocvem 
endier 
1£ pick3 eq 7 then 
run am_pint in modify.apx 
quit to reseed sch 
endif 
1f pick3 eq 8 then 
run mod_vhin in modify.apx 
quit to restmod.cmd 
endif 
1f pick3 eq 9 then 
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quit to restmain.cmd 
endif 
quit to restmod.cmd 
Becurn 
Smenu 
mod_menu 
column SARELTIS --- MODIFY MENU 
MODIFY SAR INFORMATION 
MODIFY BOARDING INFORMATION 
MODIFY VESSEL INFORMATION 
MODIFY OWNER/OPERATOR INFORMATION 
MODIFY SAR UNIT INFORMATION 
MODIFY VESSEL INTELLIGENCE 
MODIFY PERSONNEL INTELLIGENCE 
MODIFY VESSEL HIN 
RETURN TO MAIN MENU 


*( end ) 

S COMMAND 

MOD_SAR 

KR ( RRAAKKAKAAKAKAAKKAKAAKAKKKAKARKAKAARKKKKAKK AKA AK AAKKAKAKKKAAKAKAAKAKKAA 
Program: Modify Sar 
Author: H R Lang and J D Allen- 
Date Written: August 1987 
Description: This program allows the user to modify 

sar information in the database. 

Tables Used: sar, vessel 
Temp Tables: none 
Reports Used: none 
Forms Used: sarmod 


KRAAKRKAKAKKAKRKAKAKKKAAKKKKAKAKKKAKKKAKKAAKKAKKKAAKRAKKKKKKRAKAKRKAKKAKAKAKAKAKKAKAKAKAKRKAKAKE ) 


Bec €rror messages on 
set messages of 
set escape off 
newpage 
meeces Program loading in progress. Please stand by ..... ae! CEEOms 1.0 
clear all variables 
set null ? 
set var more to Y 
set var vfoldno text 
while more eq Y then 
set var change to N 
S@tme Var reenter to N 


es iin . 
wits pees folder number of sar case requiring modification: " + 
a 
Peewee violdno usitig ' " at 10860 
while vfoldno exists then 
newpage 
write "Searching SAR Table. Please stand by ...." at 10 10 


set pointer #1 el for sar where folderno eq .vfoldno 
me elue@g 0 then 
*(sar case exists in database) 
set var vucn to ucn in #1 
set var vmucn to mucn in #1 
set var vsardate to sardate in #1 
set var vsarday to sarday in #1 
set var vsartime to sartime in #1 
set var vsunrise to ssunrise in #1 
set var vsunset to ssunset in #1 
set var vsarnod to sarnod in #1 
set var vsarpob to sarpob in #1 
set var vsarhin to sarvhin in #1 
set var vsarlat to sarlat in #1 
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set var vsarlong to sarlong in #1 
set var vdistoff to offshore in #1 
set var vimmed to immedsar in #1 
set var vwinddir to winddir in #1 
set var vwindspd to windspd in #1 
set var vvisdist to visdist in #1 
set var vclouds to clouds in #1 
set var vceiling to Cet aee in #1 
set var vseas to seas in # 

set var vswells to swells in #1 
set var oldfold to .vfoldno 
set var change to ¥ 

set var sl to folderno in #1 
set var s2 to ucn in #1 

set var s3 to mucn in #1 

set var s4 to sardate in #1 
set var s5 to sarday in #1 
set var s6 to sartime in #1 
set var s7 to ssunrise: in #1 
set var s8 to ssunset in #1 
set var s9 to sarnod in #1 
set var s10 to sarpob in #1 
set var sll to sarvhin in #1 
set var sl2 to sarlat in #1 
set var sl3 to sarlong in #1 
set var sl14 to offshore in #1 
set var s15 to immedsar in #1 
set var sl6 to winddir in #1 
set var s17 to windspd in #1 
set var s18 to visdist in #1- 
set var s19 to clouds in #1 
set var s20 to ceiling in #1 
set var s21 to seas in #1 | 
set var s22 to swells in #1 


= 


newpage 
write "This folder number does not exist in the database” at 10mm 
Write "Do you wish to reenter the folder number? (Y)" at 12 10 
Fillin icorrecteusing "(seater eo 
1f correct fails or correct eq Y then 
set var Reenter sboms 
endar 
endif 
break 
endwhile 
while Coeds a Yethen ; . 
set pointer #2 e2 for vessel where vslhin eq .vsarhin 
set var vvslname to vslname in #2 
newpage 
write "press LEGON to load changes or [ESC] to quit" at 1 1 
draw sarmod with all at 3 oa 
edit var vfoldno vsardate vucn vmucn vsarday vsartime vsarpob + 
vsarnod vimmed vsarlat year eee vdistoff vvisdist vsunrise vsunset + 
vceiling vclouds vwinddir vwindspd vseas vswells return esc pgdn 
1f #return eq pgdn then 
newpage . | 
write "Changing values in sar" 
L£ oldfold ne .vfoldno then | . 
set pointer #2 eZ for sarunits where=f£oldno eq Voldeeld 
while e2 eq 0 then 
change foldno to .vfoldno in #2 
next #2 e2 
endwhile 
endif 
delete rows from #1 
load sar é 
-vfoldno .vucn .vmucn .vsardate .vsarday .vsartime_.vsunrise + 
-vsunset .vsarnod .vsarpob .vsarhin .vsarlat .vsarlong + 
-vdistoff .vimmed .vwinddir .vwindspd .vvisdist .vclouds + 
.vceiling .vseas .vswells 
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end 
set Roemier #2 e2 for sar where folderno eq .sl or folderno eq + 
.v£oldno 
if e2 ne O then 
- load sar 
Poe. See esS mt .S> .66 257 .S38 269 Vsl0 .a21 wel2 vel3 .~si@® + 
~Sitem.S15 .Sl7 «siS .@l9 .s20 .s21 .s22 


set pointer #3 e3 for sarunits where foldno eq .vfoldno 
Whale e3 eq 0 
change foldno to .sl in #3 
next #3 e3 
endwhile 
endif 
write "Return to correct data entered? (N)" at 15 10 
write "Note: correct only errors indicated by messages" at 20 5 
fillin er using "(" at 15 42 
if er fails or er eq N then 
set var change to N 
endif 
else 
set var change to N 
endif : 
endwhile 
if reenter eq N then 
newpage 
write "More sar cases to be changed? (N)" at 12 20 
meinemrsar using "(" at 12 50 
1£ mrsar fails or mrsar eq N then 
Zoe varemore? TOmN 
endif 
endif . 
endwhile *(end of main loop) 
set error messages off 


‘set null -0O- 


recurn 
*( end ) 


S$ COMMAND 


MOD_BRD .- 
K(KRAKKAKKKAKKAKKKKKKAKKKKKKAKKKKAKKKKKKKAKKKAKK KKK KK KKKAKKAKKKAKKAKAKK KKK KKK 


Program: Modify Boarding 

Author: eR aie and J D Allen 

Date Written: August 1987 

Descueption: This program allows the user to modify 
| boarding information in the database. 

Tables Used: boarding, vessel 

Temp Tables: none 

Reports Used: none 

Forms Used: bomodl, bomod2, bomod3 


AKAKAKKKKKAKKKAKKKAKKAKKKKKKKKKKKKK KKKKKAKKKKKKAKRKKAKKKKRKKRKAKRKARKKKKKKEKE KF ) 


Set error mae sees on 
set messages of 

set escape off 

newpage | . 

pate "Program loading in progress. Please stand by ...0.. ,ebo 10 
Clear all variables 


» set null ? 


set var pg to l 
set var review to N 
*(controls relation search-_ if reviewing, don't search) 
While pg gt 0 then *(main loop) 
1f review eq N then 


newpage 
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set var fix to N 

set var chk-mr to N 
set var vbone Pext ' _ on 
write "Enter report number of boarding requiring modification: " + 


at 10 © 


Fillin yvbono using |" ‘“Saeee. Ge 
while vbono exists then 


newpa 


write "Searching Boarding Table. 


set 
if e 


set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 


ge 


Olnter #1 el 
eq 0 then 
*(record exists 


Val 
var 
Var 
VatE 
Var 
var 


vbodate 
vbotime 
vvslpob 


vadult to daul 


in database) 
to bodate in #1 
to botime in #1 


Le 


eaeee 


i ae 


pfd in #1 


vchild ee chifaptd in. #2 
vostatus to 


vobsbody to- 


vobcount to 
VODSCLEY. EG 
vobstate to 
vobslat to obslat in #1 

vobslong to obslong in #1 


vVV101L54 
VV1OLSS 
vv10l156 
vv1o0l57 
VV101L58 
VV1OL59 
vviol60 
vviol6él 
vv1iol62 
vv1iol63 
vvio0l64 
vv1io0l65 
vVV10166 
vv10l67 
vviol68 
vuns69 
vuns70 
vuns71 
vuns7Z2 
vuns73 
vuns74 
vuns75 
vuns76 
vuns77 
vuns78 
vuns79 
vboreml 
vborem2 
vborem3 
vboname 
vborate 
vbounit 
vbodist 


to 


to uns69 
to uns70 
to uns71 
to uns7Z 
to uns73 
to uns74 
to uns75 
to uns7vé 
to uns77 
to uns78 
£o uns79 


Co 


owstatus in #1 
obsbody in #1 
obscount in #1 


obscit 


obsstate in #1 


viol54 
VLOS & 
v1iol56 
V1 Ol OW 
viol58 
v1io0l59 
viol60 
Vio Lew 
yv1io0l62 
viol63 
viol64 
V1OLE5 
v1i0166 
viol67 
viol68 


boreml 
borem2 
borem3 
boname 
borate 
bounit 
bodist 


in #1 


Iyer 


in 


in #1 
in #1 
in #1 
in #1 
in #1 


vboopfac to boopfac in #1 
vboday to boday in #1 


vbosrise to bsunrise-in #1 


vbosset to bsunset in #1 
vvslhin to bovhin in #1 

vweapons to weapons in #1 

1 to bodate in #1 

b2 to botime in #1 
b3 to,bono inet 

b4 to vslpob in #1 
b5 to adultpfd in #1 
b6 to childpfd in #1 
b7 to owstatus in #1 
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Please stand by .. 
for boarding where bono eq .vbono 


| at LORS 





set var b8 to obsbody in #1 
set var b9 to obacount in #1 
set var bl10 to o peeuty in #1 
set var bll to obsstate in #1 
set var b1l2 to obslat in #1 
set var b13 to obslong in #1 
get var b1l4 to viol54 in #1 
set var b15 to viol55 in #1 
set var bl6 to viol56 in #1 
set var bl7 to viol57 in #1 
set var b18 to vio0l158 in #1 
set var bl1l9 to viol59 in #1 
set var b20 to viol60 in #1 
Set var b21 to vaol6l in #1 
set var b22 to viol62 in #1 
set var b23 to viol63 in #1 
set var b24 to viol64 in #1 
set var b25 to viol65 in #1 
set var b26 to viol66 in #1 
set var’ b27 to viol67 in #1 
set var b28 to viol68 in #1 
set var b29 to uns69 in #1 
set var b30 to uns70 in #1 
set var b3l to uns7l in #1- 
set var b32 to uns72 in #1 
set var b33 to uns73 in #1 
set var b34 to uns74 in #1 
set var 535 to uns75 in #1 
set var b36 to uns76 in #1 
set var b37 to uns77 in #1 
set var b38 to uns78 in #1 
set var b39 to uns79 in #1 
set var b40 to boreml in #1 
set var b4l1 to borem2 in #1 
set var b42 to borem3 in #1 
set var b43 to boname in #1 
set var b44 to borate in #1 
set var b45 to bounit in #1 
set var b46 to bodist in #1 
set var b47 to boopfac in #1 
set var b48 to boday in #1 
set var b49 to bsunrise in #1 
set var b50 to bsunset in #1 
set var b51 to bovhin in #1 
set var b52 to weapons in #1 
set pointer #2 e2 for vessel where vslhin eq .vvslhin 
a vessel name) 
var vvslname to vslname in #2 
set var review to Y 
break 
else 
newpage 
write "This boarding report number does not exist in the + 
database'' at 10 10 
write 'Do you wish to reenter the report number? (Y)" at 12 10 
Zildan correct,.ugan@ '"("' at 12 52 
1f correct exists and correct eq N then 
set var chk-mr to Y 
set var f1x to Y 
break 
else 
set var f£1x to Y 
break 
endif 
endif 
endwhile 
endif 
if fix eq N then 
if Woeeq 1 then 


newpage 
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write "Press LE GDN. bo to move down a page or [ESC] to quit" at 1 1 
draw bomodl with a Eis 
edit var vbono eoodate “able vboday vvslpob vadult vchild + 
vostatus vobsbody vobcount vobscity vobstate vobslat vobslong + 
return esc pgdn 

endif 

Li ms 9 2 then 


aoe "Press , LESC! to quit, [PGUP] to move up or [PGDN] to move + 
down a epee! ae 
draw bomod2 with all at 3 
edit var return esc pgup pgdn 
endif 
1f pg eq 3 then 
newpage 
write 'Press LE CUee to aniane up a page or [ESC] to quit" at 11 
draw bomod3 with all a 
edit var return esc en 
endif 
ie eae ae eq _poue then 


1£ 5 
see Ga var a tee. DCee 1 
el se a 
set var ou 
endif oe 
endif 
a EngeUnn ea <page then 


13 ae oe 
var o EO erp Git a 
el me oe 
set var O 

endif id 
endif 
if #return eq esc then 

set var choice to 0 . 

while choice lt 1 or choice gt 3 then 


age 
write "Boarding Change Options’ at 2 20 
WElte [ees see 8 8S eee at > 20 
write "1. Change valWes in thevdatabasev™= at > 2s 
write "2. Go back and verify data " at 6 20 
write™ "3 Oult "ate Ze 
writes “YWeur choice: " atl 9 25 
fillam chodec using " "ae 2937 
1f choice eq 1 then 
set error messages off 
newpage 
write "changing values in boarding! 
delete rows from #1 
load boarding 
.vbodate .vbotime .vbono — .vadult .vchild + 
.vostatus . vobsbody -vobcount .vobscity -vobstate + 
.vobslat .vobs long svviol54 .vviol55 .vviol56 .vviol57 + 
-vvi0l58 .vviol59 .vviol60 .vviol61 .vviol62 .vviol63 + 
VVL0l64.c.vvi0l6éS .vvied66 .vviol67 .vv1lol68 .vims6ome 
-vuns70 .vuns7l .vuns72 .vuns73 .vuns74 .vuns75 .vuns76 
.vuns77 .vuns78 .vuns79 .vboreml .vborem2 .vborem3 + 
-vboname .vborate .vbounit .vbodist .vboopfac ~Vboday + 
.vbosrise -vbosset .vvslhin .vweapons 


end 
oe ppoeces #3 e3 for boarding where bono eq .b3 
ne 0 then 
* Sad boardin 
ee .b3 .b4 .b5 .b6 .b7 .b8 .b9 .b10 .bll .bIZ See 
.b14 .b15 .b16 .b17 .b18 .b19 .b20 .b21 .b22 .b23 .b24 + 
.b25 .b26 .b27 .b28 .b29 .b30 .b31 .b32 333 .b34 .b35 + 
036 5537 .bas6 Woe 3.546 .b41 .b42 .b43 .b44 .b45 .b46 + 
.b47 .b48 .b49 .b50 .b51 .b52 
end 
endif 
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set error messages on 
newpa 
wr = "Return to correct data entered? (N)" at 15 10 
fillin er weingg"('"' at 15 42 
if er exists and er eq Y then 
s@t Var pg to l 
else 
set var chk-mr to Y 
endif 
@ndift 
1f choice eq 2 then 
set var pg cto 1 


enaif 

1f choice eq 3 then 
newpage 
write "More boardings to be changed? (N)" at 12 20 
fallin worerusinge'(" atel2 50 


1f more fails or more eq N then 
set var pg to 0 
else 
Set Yor og tol 
Set Var review to N 
endif 
éndir 
endwhile 
endif 
endif 
if chk-mr eq Y then 
newpage 
write "More boardings to be changed? (N)" at 12 20 
fillin more using " i at 12 50 
if more fails or more eq N then 
set var pg to 0 
else 
clear all variables 
set var pg to l 
set var review to N 
endif 
endif 
endwhile *(end of main loop) 
set error messages off 
set null -0- 
return 
*( end ) 


$COMMAND 


* MOD_VSL 
ee i a en AR nie OA RA 


Program: Modify Vessel 

Author: Z R Bust 2987 and J D Adblen 

Date Written: 98 

Description: This prise allows the user to modify 
vessel information in the database. 

Tables Used: vessel 

Temp Tables: none 

Reports Used: none 

Forms Used: vslmodl, vslmodz2 


RAKAKAKKAKRKKKKKAAAAKKKKKKKKKAKRKKRKKKKKKKKKARKKRKKKAKAKAKKRKEKKKKRKAKRAKRARKRERKKK ) 


set error “nig 9 on 
set messages of 

set escape off 

newpage 

write "Program loading in progress. Please stand by ....... “at £0 10 
Clear all variables 
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set nui 
set var pg to l 
set var mone tomy ; 
while more eq Y then *(main loop) 
set var chk_hin to Y 
set var chk_name to N 
While chk_hin eq Y then 
newpage 
set var vvslhin text — coe 
write "Enter HIN of vessel pede eed modification: “atone 
write "(enter 'xxx! to go directly to vessel name search)!" at 12 5 


fillin vvsihin using i ecemner os 
while vvslhin exists then 
1f vvslhin eq xxx then 
set var chk_hin to N 
set var chk_name to Y 
break 
enalt 
Hew ege 
write "Searching Vessel Table. Please»stand by .......™” at iam 
set pointer #1 el for vessel where vslhin = .vvslhin 
newpage 


Pie | sec: Chena. 
*(vessel exists in sae 
set var vvslno to vslno in #1 
set var vvslname to vslname in #1 
set var vvslmake to vslmake in #1 
set var vvslmod to vslmodel in #1 
set var vvslyear to vslyear in #1 
set var vvslton to vsltons in #1 
set var vvslft to vsllenft in #1 
set var vvslin to vsllenin in #1 
set var vvslhp to vslhp in #1 
set var vvsluse to vsluse in #1 
set var vvsltype to vsltype in #1 
set var vera to vslprop in #1 - 
set var vvslhull to vslhull in #1 
set var vvsleng to vsleng in #1 
set var vvslfuel to vslfuel in #1 
set var vconstr to vslconst in #1 
set var vdecal to cmedecal in #1 
set var vemeyear to cmeyear in #1 
set var voffno to vsloffno in #1 
set var vhome to homeport in #1 
set var vcall to vslcall in #1 
set var vvalue to vslvalue in #1 
set var vsuper to vslsuper in #1 
set var vmasts to vslmasts in #1 
set var vsailno to sailno in #1 
set var vhlcolor to hlcolor in #1 
set var vtrcolor toytrceler sina 
set var vslcolor to slcolor in #1 
set var vebcolor to ebeogier in i 
set var vdkcolor to dkcolor in #1 
set var vmarks to vslmarks in #1 
set var vl to vslno in #1 
set var v2 to vslname in #1 
set var v3 to vslhin in #1 
set var v4 to vslmake in #1 
set var v5 to vslmodel in #1 
set var v6 to vslyear in #1 
set var v7 to vsltons in #1 
set var v8 to vsllenft in #1 
set var v9 to vsllenin in #1 
set var v10 to vslhp in #1 
set var vll to vsluse in #1 
set var v12 to vsltype in #1 
set var v13 to Vs aay in #1 
set var vl4 to vslhull in #1 
set var v15 to vsleng in #1 
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set var vl6 to vslfuel in #1 
set var vl7 to vslconst in #1 
set var v18 to cmedecal in #1 
set var v19 to cmeyear in #1 
set var v20 to vsloffno in #1 
set var v21 to homeport in #1 
set var v2Z2 to vslcall in #1 
set var v23 to vslvalue in #1 
set var v24 to vslsuper in #1 
set var v25 to vslmasts in #1 
set var v26 to sailno in #1 
set var v27 to hlcolor in #1 
set var v28 to trcolor in #1 
set var v29 to slcolor in #1 
set var v30 to cbcolor in #1 
set var v3l to dkcolor in #1 
set var v32 to vsimarks in #1 
set var chk_hin to N 
break 
else 
newpage . | 
write "This HIN does not exist in the database" at 10 20 
write "Do you wish to reenter the HIN? (Y)" at 12 20 
PriLanweorreet using "(" at Ia 52 
1£ correct exists and correct eq N then 
set var chk_hin to N 
set var chk_name to Y 
endif 
break 
endif 
endwhile 
endwhile 
while chk_name eq Y then 
newpage . ma anil | : 
write "Enter name of vessel ee modifications " at 10610 
fillin vvslname using " " at 10 54 
while vvslname exists then 


ae oS : 
a orn enng Vessel Table. Please stand by ........" + 
at 


set pointer #1 el for vessel where vslname = .vvslname 

newpage 

while el eq O then 

*(vessel exists in catebees) 
set var vvslno to vslno in #1 

| set var vvslname to vslname in #1 
set var vvslhin to vslhin in #1 
set var vvslmake to vslmake in #1 
set var vvslmod to vslmodel in #1 
set var viag Ly ga to vslyear in #1 
set var vvslton to vsltons in #1 
set var vvslft to vsllenft in #1 
set var vvslin to vsllenin in #1 
set var vvslhp to vslhp in #1 
set var vvsluse to vsluse in #1 
set var vvsltype to vsltype in #1 
set var wre tpES to vslprop in #1 
set var vvslhull to vslhull in #1 
set var vvsleng to vsleng in #1 
set var vvslfuel to vslfuel in #1 
set var vconstr to vslconst in #1 
set var vdecal to cmedecal in #1 
set var vcmeyear to cmeyear in #1 
set var voffno to vsloffno in #1 
set var vhome to homeport in #1 
set var vcall to vslcall in #1 
set var vvalue to vslvalue in #1 
set var vsuper to vslsuper in #1 
set var vmasts to vslmasts in #1 
set var vsailno to sailno in #1 


on 





set var vhicolor to hlcolor in #1 
set var vtrcolor to trcolor dm #1 
set var vslcolor to slcolor in #1 
set var vcbcolor to cbcolor in #1 
set var vdkcolor to dkcolor in #1 
set var vmarks to vslmarks in #1 
newpage 
draw vslmodl with all at 1 
write "Correct vessel? MD: at 22 20 
fillin vsltowumd using ''(" atw2aeec 
1f vslfound exists and vslfound eq Y then 
set var chk_name to N 
set var vii te) vsinemin ya 
set var v2 to vslname in #1 
set var v3 to vslhin in #1 
set var v4 to vslmake in #1 
set var v5 to vslmodel in #1 
set var v6 to vslyear in #1 
set var v7 to vsltons in #1 
set var v8 to vsllenft in #1 
set var v9 to vsllenin in #1 
set var v10 to vslhp in #1 
set var vll to vsluse in #1 
set var vl2 to vsltype in #1 
set var v13 to vslprop in #1 
set var v14 to vslhull in #1 
set var v15 to vsleng in #1 
set var vl6 to vslfuel in #1 
set var v1l7 to vslconst in #1 
set var vl18 to cmedecal in #1 
set var v19 to cmeyear in #1 
set var v20 to vsloffno in #1 
set var v2Z1 to homeport.in #2 
set var v22 to vslicall in #1 
set var~v23 to vslvalte in #1 
set var v24 to vslsuper in #1 
set var v25 to vslmasts in #1 
set var v26 to sailno in #1 
set var v27 to hlcolor in #1 
set®varmwvze "to trcolormin a 
set var v29 to slcolor in #1 
set var v30 to cbcolor in #1 
set var v3l to dkcolor in #1 
set var v32 to vslmarks in #1 


break 
endif 
next #1 el 
endwhile 
if el ne O then 
newpage 


write "This vessel does not exist in the database" at 10 20 
write "Do you wish to reenter the vessel name? (Y)" at 12 20 
fFillin correct using ("sat i2 a0 
1f correct exists and correct eq N then 
set var chk_name to N 
encier 
ema r 
break 
endwhile 
endwhile 
if el eq O then 
set Vd Gren te au 
while error eq Y then 
SCL Vale error tom) 
newpage 
write "Press [ESC] to quit or [PGDN] to move down a page" at 1 1 
draw vslmodl with all at 3 
edit var vvsiname vvslno voffno vvsimake vvslmod vvslyear vvslft + 
vvslin vvslhp vvslton vvsluse vvsltype vvslprop vvslhull vvsleng + 
vvslfuel vconstr return esc pgdn 


Saez 





if #return eq pgdn then 
newpage | 
write "Press [ESC] to quit or [PGDN] to load changes" at 1 1 
draw vslmod2 with all at 3 
edit var vdecal vcmeyear vhome vcall vvalue vsuper vmasts + 
vslcolor vsailno vhlcolor vtrcolor vcbcolor vdkcolor vmarks 
return ese pgdn 
if #return eq pgdn then 
*(vessel exists in database) 
set error messages off 
newpage . 
write "changing values in vessel" 
delete rows from 
load vessel . 
.vvsino .vvslname .vvslhin .vvslmake .vvslmod .vvslyear + 
.vvslton .vvslft .vvslin .vvslhp .vvsluse .vvsltype + 
.VVSl Dp EOpmayVelnull .vyeeslere=.vvslived..vconstr .vdecal + 
.vemeyear .voffno .vhome .vcall .vvalue .vsuper .vmasts + 
.VSalinem.vnlicolomiavtgeolor .vyslcolorm .vcbcoler .vdkcolom + 
.vmarks 
end 
set ee #2 e2 for vessel where vslhin eq .v3 
1f e2 ne O then 
load vessel 
Vie. Vem. Von. VO? VE a. VIN MLO VEL avilzZ .vl3 + 
iy eee on Omer) Vom Vlo 4Vz20 GVeL .G22 .V2Z3 .Vvz2Z4 + 
Video A com. Veo .JS0 .Vol .V32Z 
end 
endif 
Som ecrnor messages _on 
write "Return to correct data entered? (N)" at 15 10 
eS oe correct only errors identified by messages" + 
a 
fillin er using "(" at 15 42 
1f er exists and er eq Y then 
Sem Varn error’ tory 
endyr 
endif 
endif 
endwhile 
endif 
newpage 
write "More vessels to be chee (N)" at 12 20 
Peeeinemrvsls using "(" at 12°48 
if mrvsls fails or mrvsls eq N then 
S@ct var more to N 
endif . 
endwhile *(end of main loop) 
set error messages off 


set null -0- 
mecurn 
*( end ) 
S$ COMMAND 
MOD_OWOP 
 ( REARAKKAKKAKKKAKK KAR KKK KK KKRKKKKRRKKRKKRKKAKRKKK RK RAKK RK RKKK RRR AKA KKK 
Program: Modify Owner and Operator 
Author: | H R Lang and J D Allen 
oeec Wr iit én: August 1987 
Description: This i allows the user to modify 
owner and operator information in the 
database. 
Tables Used: owners, operator, opown 
Temp Tables: none 
Reports Used: none 
Forms Used: ownrmodl, ownrmod2, opermodl, opermod2 


0S 


KARA AKKKAKKKKKKRKRKKAKKAKKKAKRKRRKE RARER RRR RRA KKK RRKKKR EK KRRAKKKRKKAKKKAKKKZ ) 


set error pesseges on 
set messages of 

set escape off 
newpage 

write "Program loading in progress. Pleasewstand by *7......" at 10 10 
clear all variables 

set null ? 

set var owchange to N 

set var opchange to N 

set var choice to 0 

while choice gt 3 or choice lt 1 then *(main loop) 


newpage 
write "Owner / Operator Change Options" at 10 20 
Write: | - sme -- 4a — -- === —----- eee at. ae 20 
write "1. change owner values" at 13 22 
writer'2. change- operator values" at) 14 22 
Wrlte Ware Qualia ede eee 
Write "YOuUr (Gnolce-) demas 
fillin choice using " “Wares 
1f choice eq 1 then 
set var chk_ownr to Y 
while chk_ownr eq Y then | 
*(change owner information) 
newpage _- 
ie ae "Press [PGDN] after entering Initial information to check + 
if" a 
write "owner.exists in database. Press [ESC] to quit" at 2 10 
draw ownrmodl at 4 
enter var return esc pgdn 
1f #ueturn ne esc ten | 
while vowlname exists and vowfname exists then 
set pointer #2 e2 for owners where ownlname = .vowlname and + 
ownfname = .vowfname 


newpage 
while e2 a then 
*(owner last/first name exist in database) 


set var vowmi to ownmi in #2 
set var vowdob to owndob in #2 
set var vowaddr to ownaddr in #2 
set var yore to owncity in #2 
set var vowst to ownstate in #2 
set var a to ownzip in #2 
set var vowtelno to owntelno in #2 
newpage | 
draw ownrmodl with all at 3 
draw ownrmod2 with all at 8 
write). Conmect (owners HN) at 21 20 
fillin owfcund using 3 eacecas 
1f owfound exists and owfound eq Y then 
set var owl to .vowlname 
set var ow2 to .vowfname 
set var ow3 to ownmi in #2 
set var ow4 to ownaddr in #2 
set var ow5 to owncity in #2 
set var ow6 to ownstate in #2 
set var ow7 to Se in #2 
set var ow8 to owntelno in #2 
set var ow9 to owndob in #2 
set var owl0 to ownid in #2 
set var vownid to ownid in #2 
newpage 
write "Do you.wish to change name? (N)" at 10 10 
fillin nmchange using "(" at 10 38 
1f nmchange exists and nmchange eq Y then 


noes | 
gies | eas [PGDN] to make change or [ESC] to quit" + 
a 
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draw ownrmodl with all at 3 
edit vamreturn esc pgen 
if #return a4 pgdn then 
change ownfname to .vowfname in #2 
change ownlname to .vowlname in #2 
endif 
set var chk_ownr to N 
break 
endif 
newpage 
i [PGDN} to make changes or [ESC] to quit" + 
at 
draw ownrmodl with all at 3 
draw ownrmod2 with all at 8 
edit var return esc pean 
if #return eq pgdn then 
set var er to YX 
while er eq Y¥Y then 
set error messages off 
newpage . 
write "changing values in owner” 
delete rows from # 
load owners . 
.vowlname .vowfname .vowmi .vowaddr .vowcity + 
ues .vowzip .vowtelno .vowdob .vownid 
en 
set pointer #3 e3 for owners whe ownid eq .owl0 
if e3 ne O then 
load owners 
-e -OWZ .OW3 .OW4 .ow5 .ow6 .oWw7 .OWw8 .ow9 .owld 
en : 
endif 
Set error smessages on 
write "Return to make corrections? (N)" at 10 10- 
write "Note: correct only errors identified by + 


messages! at 15 5 


operator! 





fillin.error using '(" at 10 38 
1f error exists and error eq Y then 
newpage 
write "Press [PGDN] to make changes" 
draw ownrmodl with all at 3 
draw ownrmod2 with all at 8 
edit var return esc pgdn 
else . 
set var er to N 
endif 
endwhile 
set pointer #1 el for opown where ownno eq .vownid 
newpage 
1f el @q O then . 
set var vopid to opno in #1 
set error messages off 
set pointer #1 el for operator where opid eq .vopid 
set var vopcrse to opcourse in #1 
delete rows from #1 
load operator 
.vowlname .vowfname .vowml .vowaddr .vowcity + 
eG .vowZip .vowtelno .vowdob .vopcrse .vopid 
en 
set pon tey #1 el for operator where opid eq .vopid 
if el ne O then 
load operator 
-OWl .OW2 .OW3 .OW4 .OWS .OWG .OW7 .OWS8 .OWD + 
.voperse .Vvopl 
end 
endif 
set @rror messages on 
write "Values for this person also changed in + 


set var chk_ownr to N 
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set var owchange to N 
brea 
else - 
set varvovchatigertts Y 
if opehaigé %eq Ye tien 
1f vowlname eq .voplname then 
newpage : 
draw owopform with all at 1 
write "Is this the same person? (N)" at 20 20 
fillin same using "(" at 20 45 
1f same exists and same eq Y then 
load opown . 
.vownid .vopid 
end 
endif 
endif 
endif 
set var chk_ownr to N 
break 


next #2 e2 
endwhile 
deere Zane Omeeiien 
newpage : 
write "This owner does not exist im the database” Gea 
write "Do “you"wishevo reenter Wane: (1) meat shoo 
fillin go using "(" at 10 34 
1f go exists and go eq _N .then 
set var chk_ownr to N 
endif 
encaur 
break 
endwhile 
edise 
set var chk_ownr to N 
encaer 
endwhile . 
set var GHolce sono 
endif — 
1£ choice eq 2 then 
set var chk_oper to Y 
while chksosgenseq= rene 
*(change operator information) 
newpage , i aa 
ee aes "Press [PGDN] after entering initial information to check + 
ila 
write "operator exists in database. Press [ESC] to quit” at 2 10 
draw opermodl at 4 
enter var return esc pgdn 
if #return ne esc then , 
while voplname exists and vopfname exists then 


set pointer #2 e2 for operator where oplname = .voplname and + 
opfname = .vopfname 
newpage 


while e2 eq 0 then 
*(operator last/first name exist in database) 
set var vopmi to opmi in #2 

set var vopdob to opdob in #2 . 

set var vopaddr to opaddr in #2 

set var vopcity to SOC Ee #2 

set var vopst to opstate in #2 

set var veneer to opzip in #2 

set var voptelno to optelno in #2 

set var vopcrse to opcourse in #2 

newpage 

draw opermodl with all at 3 
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draw opermodz with all at 8 
write "Correct operator? (N)"' at 22 20 
fitlin Gpeomuma woing "(at 22 38 
ete opt oume exists and opfound eq Y then 
set var opl to .voplname 
set var op2 to .vopfname 
set var op3 to opmi in #2 
set var op4 to opaddr in #2 
set var op5 to ope rn in #2 
set var op6 to opstate in #2 
set var op7 to oEeeD in #2 
set var op8 to optelno in #2 
set var op9 to opdob in #2 
set var opl0 to opcourse in #2 
set var Opll. tos opad in #2 
set var vopid to opid in #2 
newpage 
write "Do you wish to change name? (N)" at 10 10 
fillin nmchange using "(" at 10 3 
1=Z nmchange exists and nmchange eq Y then 


newpage | 
wri ef PHess [PGDN] to make change or [ESC] to quit" + 
air 1 


draw opermodl with all at 3 
Gédit var return esc pga 
if #return eq pgdn then —— 
change opfname to .vopfname in #2 
change oplname to .voplname in #2 
endif 
set var chk_oper™ to N 
break 
endif 
newpage | 
laa [PGDN] to make changes or [ESC] to quit" + 
a 
draw opermodl with all at 3 
draw opermod2 with all at 8 
@dit ver return @sc dee 
1f #return eq pgdn then 
get var ér Co Y 
while er eq Y then 
set error messages off 
newpage 
write "changing values in operator" 
delete rows from #2 
load operator ' 
-voplname .vopfname .vopmi .vopaddr .vopcity +. 
.vopst .vopz1ip .voptelno .vopdob .vopcrse .vopid 


end 
set Orne #3 e3 for operator where opid eq .opll 
1f e3 ne 0 then 


load operator 
J0pl jGp2@ Yep2 .cpS wop4 .cp5 .opG .ep/ .eps .op9 + 
-oplO .opdl 
end 
endif 
set error messages on 
writer"Réturn’to mak@ corréctions? (N)" at’ 10 10 
write "Note: correct only errors identified by + 
Messages" atls 5 
fi llor srronwusing "(" at 10 38 
1f error exists and error eq Y then 
newpage 
write "Press [PGDN] to make changes" 
draw opermodl with all at 3 
draw opermod2 with all at 8 
edit var return esc pgdn 
else 
set var-er to N 
endi 


ov? 





endwhile 
set pointer #1 el for opown where opno eq .vopid 
newpage 
1£ €1 eq) 0 then 
set var vownid to ownno in #1 
Sét error méssagesger. 
set pointer #1 el for owner where ownid eq .vownid 
change ownlname to .voplname in #1 
change ownfname to .vopfname in #1 
change ownmi to .vopmi in #1 
change ownaddr to .vopaddr to #1 
change owner to .vopcity in #1 
change ownstate to .vopst in #1 
change ova to Vera in #1 
change owntelno to .voptelno in #1 
change owndob to .vopdob in #1 
set error messages on 
write "Values for this person also changed in owner! 
set var chk_oper to N 
set var opchange to N 
break 
else 
set var opchange to Y 
1£ owchange ¢q ¥ then 
1f voplname eq .vowlname then 
newpage | | 
draw owopform with all at 1 
write "Is this the same person? (N)" at 20 20 
fillin same using "(" at 20 45 
1£ same exists and same eq Y then 
load opown 
wounMLGa .VoOpld 
end | 
endif 
endt 
endif 
set var chk_oper to N 
break 
endif 
else 


1f e2 ne O then 
newpage 
write "This operator does not exist in the database" at 5 5 
write "Do you wish to reenter name? (Y)" at 10 5 
fillin go using "(" at 10 34 
1f go exists and go eq N then 
set var chk_oper to N 
enerier 
endif 
break 
endwhile 
ese 
set var chk@oper cea 
endas 
endwhile 
Set Var Choteemross 
encase 
endwhile *(end of main loop) 
set error messages off 
set null -c- 
Fe CuBn 
k( end ) 
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$ COMMAND 


MOD_SUT 
K (RERKAKKKRKKKAAKKKRKKKKAKRKAKAKAKR RK KKK RKKK RRR RAK KERR KAKA ARERR AK KAI 


Program: 
Author 

Date Written: 
De@eription: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Modify Sar Unit 
H R cangaee and J 
August 198 

yrs - eaves allows the user to modify 
Sar unit data in the database. 

sar, 
none 
none 
sunitmod 


JD Allen 


sarunits 


RAKKKKKKKKKKKKKKKRKKRKKKKKKKRKRRK RR ARRRKK RK RAKKRKKRKRKAKAKRKKKKKKRKRRKKR RRR ) 


set error ne sage° on 

set messages of 

set escape off 

newpage 

write "Program loading in progress. 

clear all variables 

set null ? 

set var more to Y 

set var vfoldno text 

set var vunit text 

set var foldok to N 

While more eq Y then 
set var name to N 
set var both to Y 
set var done to N 
set var change to 
aS both eq Y eal 


Ae | fo idok eq N then 
write "Enter sar folder number of unit data requiring 7 


Pleagey stand by -...... ae 10 10 


*(main loop) 


*(check. both folder number and unit name) 


modification: " at 10 l 
Beilin vfoldno using " " at 10 6T 
endif 


write "Enter name of unit Hagan modification: " at 12 1 
Meee "(or enter ‘sxx! to hist units)" at 13 
fillin vunit using " " at 12°43 
while vfoldno exists and vunit exists then 
set pointer #1 el for sarunits where foldno eq .vfoldno and + 
unitname eq .vunit 
newpage 
Aoi eq 0 then 
set var vunit to unitname in #1 
set var vuwtime to uwtime in #1 
set var vuwdate to uwdate in #1 
set var voseta to oseta in #1 
set var vetadate to etadate in #1 
set var vostime to ostime in #1 
set var vdateos to osdate in #1 
set var valgtime to alngtime in #1 
set var valgdate to a TS em in #1 
set var vtowtime to towtime in #1 
set var vtowdate to towdate in #1 
set var vdvmoort to dvmoored in #1 
set var vdvmoord to dvmdate in #1 
set var vsumoort to sutmoor in #1 
set var vsumoord to sutdate in #1 
set var sul to gia: in #1 
set var su2 to unitname in #1 
set var su3 to uwtime in #1 
set var su4 to uwdate in #1 
set var suS to oseta in #1 
set var su6 to etadate in #1 
set var su7 to ostime in #1 
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set var su8 to osdate in #1 
set var su9 to alngtime in #1 
set var sul0 to alngdate in #1 
set var sull to towtime in #1 
set var sul2 to towdate in #1 
set var sul3 to dvmoored in #1 
set var sul4 to dvmdate in #1 
set var sul5 to sutmoor in #1 
set var sul6 to sutdate in #1 
set var change to Y 
set var both to N 
break 
else 
set pointer #2 e2 for sarunits where foldno eq .vfoldno 
newpage 
1f e2 eq O then 
set var foldek to, ¥ 
1f vunit eq xxx then 
set var both to N 
set var names top, 
break 
endif 
newpage . . . 
write "This unit name does not exist with this folder + 
number" at 10 10 
write "Do you wish to reenter the unit name? (Y)" at 12 10 
fillin correeatmusangq=e!(t) att 22046 
1£f correct exists and correct eq N then 
set var both to N 
SCt var nance rou, 
endif 
break 
else 
newpage 
gale ee folder number does not exist in the database! 
at ; 
write "Do you wish to reenter the folder number? (Y)" at 12 10 
fillin correct’ usingesa( leat eee eZ 
1f correct fails or correct eq Y then 
brea 
else 
set var both to N - 
set var done to Y 
break 
endif 
endif 
endif 
endwhile 
endwhile . sa | 
while name eq Y then *(search on name with existing folder number) 
newpage | — 
write "The following unit names exist within the indicated folder + 
number" at 1 2 
write "! " 
sel unitname from sarunits where foldno eq .vfoldno 
write "Do you wish to enter/reenter the unit name? (Y)" at 20 10 
fillinm reenter using i (i) ate2n Be | 
1f reenter exists and reenter eq N then 
set var done to Y . 
endif 
break 
endwhile 
1£f change eq Y then 
newpage : 
write "press [PGDN] to load changes or [ESC] to quit” at 1 1 
draw sunitmod with all at 3° ; 
edit var vunit vuwtime vuwdate voseta vetadate vostime vdateos + 
valgtime valgdate vtowtime vtowdate vdvmoort vdvmoord vsumoort + 
vsumoord return esc pgdn 
1f #return eq pgdn then 
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set error messages off 
delete rows from #1 
load sarunits 
.vfoldno .vunit .vuwtime .vuwdate .voseta .vetadate .vostime + 
.vdateos .valgtime .valgdate -vtowtime .vtowdate .vdvmoort + 
cee moaise .vsumoort .vsumoord 
en 
set pointer me e2 for sarunits where foldno eq .sul and + 
unitname eq 
1f e2 ne 0 ee 
load sarunits 
-sul .sud .su3 Jsuw4 .su5 .su6 .su7 .su8 .su9 .sulO .sull + 
-SUlZ2 .s¥@l3 .sul@ tsul5 .sul6b 
end 
endif 
set error messages on 
endif 
set var done to Y 
endir 
1£f done eq Y then 
newpage 
write "More sar units to be ance Gio" at 12 20 
Peeranemesut using "(' at 12 50 
1f mrsut falls or mrsut eq N then 
set var more to N 
else 
set var foldok ‘to N 
endi 


endi 
aegis Ve *(end of main loop) 
set error messages of 
set null -0- 
return 
*( end ) 


~ $COMMAND 


MOD_VHIN 
HK ( KERKKAKAKAAAAKKKKK KKK KK KKK RE RE RK KK KKK KKK KKKKKK KKK KK RRR RRR KKK KA 


Program: Hoge, Vessel HIN 

Author: | H R eae and J D Allen 

Date Written: August 1987 

Description: This oe a allows the user to modify 
vessel hull identification numbers in 
the database. 

Tables Used: vessel, sar, boarding, owvsl, opvsl 

Temp Tables: none 

Reports Used: none 

Forms Used: vhinform 


RKRKKKKKKAK KKK KRARKKKK KKK KKK KKK KKK KKKKKKKKK KK KK KKKKKKKKKKKKKKKKKKKKKAKKA ) 


set error messages on 
Set. messages o 
set escape of 
newpage 
write "Program loading in progress. Please stand by ......." at 10 10 
clear all ,variables 
set null ? 
set var more to Y 
while more eq Y then <een loop) 
set var vslfound to 
set var chk_hin to y" 
set var chk_name to N 
While chk_hin eq Y then 
newpage 
set var vvslhin text 


Sided 


write "Enter incorrect vessel hin: " at 10 10 
write "(enter 'xxx' to search ee vessel name)" at 12 5 
fillin vvsthin using.’ ac Tomer 
while vvslhin exists then 
1f vvslhin eq xxx then 
set var chk_hin to N 
set var chk_name to Y 
break 
enc came 
set pointer #1 el for vessel where vslhin = .vvslhin 
newpage 
Livemeq 0 Chey 
(vessel exists in ds oe 
set var vvslno to vslno in #1 
set var vvslname to vslname in #1 
set var vvslmake to vslmake in #1 
set var vvslmod to vslmodel in #1 
set var vss yeas to vslyear in #1 
set var vvslton to vsltons in #1 
set var vvslft to vsllenft in #1 
set var vvslin to vsllenin in #1 
set var vvslhp to vslhp in #1 
set var vvsluse to vsluse in #1 
set var vvsltype to vsltype in #1 
set var Ws eee to vslprop in #1 
set var vvslhull to vslhull in #1 
set var vvsleng to vsleng in #1 
set var vvslfuel to vslfuel in #1 
set var vconstr to vslconst in #1 
set vay VOLENO = lOnvolaurnomiia;= 
draw vhinform with all at 1 
write "Correct vessel? (Y¥)" at 22 20 
fillin vtound using. (" anegcms 
1f vfiound fails or vViounc eqry Eien 
set var chk_hin to N 
set var vslfound to Y . 


break 
else 
newpage 


write "Do you wish to reenter the HIN? (Y)" at 12 20 
fillin reenter using "(" at 12 52 
1f reenter exists and reenter eqn Emen 
set var chk_hin to N 
set var chk_name to Y 
break 
endif 
erietder 
else 
newpage . 
write "This HIN does’ not exist in thescadeabace™” at my Zu 
write "Do you wish to reenter the HIN? (Y)" at 12 20 
fillin correce™usiuig 9 ate ema 
1f correct exists andgeourect sage eiaen 
set var chk_hin to N 
set var chk_name to Y 
endif 
break 
engin 
endwhile 
endwhile 
While chk_name eq Y then 


newpage 
write "Enter name of vessel Beda t eae HIN correction: " at 10 10 
fillim vvsineme Usingeeeeace) Ooo 
while vvslname exists then 
set pointer #1 el for vessel where vslname = .vvslname 
newpage 
wie @1. eq O-tnens 
*x(vessel exists in Soo 
set var vvslno to vslno in #1 


320 





set var vvslname to vsiname in #1 
set var vvslhin to vslhin in #1 
set var vvslmake to vsimake in #1 
set var vvslmod to vslmodel in #1 
set var vvslyear to vslyear in #1 
set var vvslton to vsltons in #1 
set var vvslft to vsllenft in #1 
set var vvslin to vsllenin in #1 
set var vvslhp to vslhp in #1 
set var vvsluse to vsluse in #1 
set var vvsltype to vsltype in #1 
set var vane to vslprop in #1 
set var vvslhull to vslhull in #1 
set var vvsleng to vsleng in #1 
set var vvslfuel to vslfuel in #1 
set var vconstr to vsliconst in #1 
set var voffno to vsloffno in #1 
newpage 
draw vhinform with all at 1 
weiter "Correct vessel? (N)" at 22 20 
Pet linefoundy wueang "(" at 22 36 
if foundv exists and foundv eq Y then 

set var chk_name to N 

set var vslfound to Y 


break 
endif 
next Fl. el 
endwhile 
jel newO then 
newpage 


Write "This vessel does not exist in the database" at 10 20 
write "Do you wish to reenter the vessel name? (Y)" at 12 20 
ferirn coprect using. "('! at 12.60 
if correct exists and correct eq N then 
set var chk_name to N 
endif 
endif 
break 
endwhile 
endwhile 
1f vslfound eq Y then 
set var vbadhin to .vvslhin 
Seu, Var "error to Y 
While error eq Y then 
Serovar error to N 
newpage 
write "Press [PGDN] to change HIN or [ESC] to quit" at 11 
draw vhinform with all at 3 
edit var vvslhin return esc pgdn 
1£ #return eq pgdn then 
newpage . a 
change vslhin to .vvslhin in #1 
write "Return to correct HIN entered? (Y)" at 15 10 
filiain er usenge! ("eat 15 41 
16 qe feilw or tr €q Y then 
set var error to 
el Se . 
set pointer #1 el for owvsl where vhinown eq .vbadhin 
write eee in owvsl" 


while el eq en 
change vhinown to .vvslhin in #1 
next #1 el 

endwhile 


set pointer #1 el for opvsl where vhinoper eq .vbadhin 
write ane values in opvsl" 
wna €F #q 0 then a 
change vhinoper to .vvslhin in #1 
next #1°é1 
endwhile . 
set pointer #1 el for sar where sarvhin eq .vbadhin 


oc3 


write "Changing values in sar'' 
while el eq 0 then » « 
change sarvhin to .vvslhin in #1 
next #1 el 
endwhile 
set pointer #1 el for boarding where bovhin eq .vbadhin 
write eae values in boarding'! 
While el eq 0 then . > 
change bovhin to .vvslhin in #1 
next #1 el 
endwhile 


endif 
endwhile 
endif 
newpage 
Write "More vessels to be chee ees Oi)" at 12 20 
fillin mrvsls using "(" at 12 48 
1f mrvsls fails or mrvsls eq N then 
set var more to N 
endif 
endwhile *(end of main loop) 
set error messages o 
See nui 
Peieuion 
*( end ) 


S$ COMMAND 
AM_VINT 
H (KAKKKRKKKRRKKKAKKKKKKKKK RRA KKK KKK KAR RRA KKAKAKKKERKRRKRRERKRKKAKKKKKKKK 


Program: Add and Modify Vessel Intelligence 

Author: H R Lang and J D Allen 

Date Wriecen: August 1987 . 

Description: This program allows the user to input 
and modity vessel intelligence 
information. 

Tables Used: vslintel 

Temp Tables: none 

Reports Used: none 

Forms Used: vintform 


RAKKKKKKRRKKKRRKKRKRKRKKKRRKAKKRKKRKRKKKRRRRAKRKKRKRKRKARRKAAKRKKRAKKRKKER ) 


Sec €rhacr onthe de on 
set messages of 
set escape off 
newpage | 
write "Program loading in progress. Please stand by ......." at 10 10 
clear all variables 
set null ? 
set var more to Y¥ 
While more eq Y then *(main loop) 
newpage . 
write "Do you wish to (A)dd or (M)odify information?" at 10 10 
fillin choace using “>” ae Times 
if choice eq A then *(add information) 
set var vintdate to .#date 
set var vepic text 
label redovsl 
newpage 
Write "Press [PGDN] to load data or [ESC] to quit" at il 
draw vintform with all at 3 
edit var return esc page 
1f #return eq pgdn then 
neWeeo 
write "Loading vslintel'' 
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set error messages off 

load vslintel | . 
-vvslname .vintdate .vepic .vstolen .vintreml .vintrem2 + 
.vintrem3 

end 

S®t error messages on 

write "Return to correct errors? (N)" at 15 10 

write "Note: correct only errors indicated by messages" at 20 5 

teen cixvel using "(" at 15 36 

if fixvsl exists and fixvsl eq Y then 
Be eo redovsl 

eal 


endif 
endif o | 
while choice eq M then *(modify information) 
newpage a 
write "Enter name of vessel requiring changes then press [PGDN] + 
Gewsee 1f" at il 
Write "vessel exists in the database or [ESC] to quit" at 2 1 
draw vintform with all at 4 
edit var vvslname return esc pgdn 
if #return eq sla then 
set pointer el for vslintel where intvname eq .vvslname 
while el eq 0 then 
set var vvslname to intvname in #1 
set var vintdate to intdate in #1 
set var vepic to epiccode in #1 
set var vstolen to stolen in #1 
set var vintreml to vremarkl in #1 
: set var vintrem2 to vremark2 in #1 
| set var vintrem3 to vremark3 in #1 
newpage . 
draw vintform with all at 1 
| Wwe "Correct vessel? (Y)" Miz) 25 
Pertin correct using "(' at 23 41 
i Correct fails or correct €q Y then 
label corvsl 
newpage | 
eee smecs (PGDN] to change database or [ESC] to quit! + 
| a 
draw vintform with all at 3 
Gdat yar return ésc pgan 
1f #return eq pgdn then 
newpage . . 
write "changing values in vslintel'! 
set error messages of 
change intvname to .vvslname in #1 
change intdate to .vintdate in #1 
change ¢piccode to..vepic in #1 
change stolen to .vstolen in #1 
change vremarkl to .vintreml in #1 
change vremark2 to .vintrem2 in #1 
change vremark3 to .vintrem3 in #1 
set error messages on 
write "Return to correct errors? (N)" at 15 10 
ge tte puoees correct only errors indicated by messages" + 
at 
Pmelin veliix using "("-at.b5 36 
1f vslfix exists and vslfix eq Y then 
Aeee @orvel 
endif 


endif 
set var choice to N 
break 
endif 
next #1 el 
endwhile 
if el ne O then 
newpage 
write "This vessel does not exist in the vessel intelligence + 
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file" at Se 
write "Do you wish to reenter name? ie at 15906 
fillin reenter using "(ac lo sg 
if reenter. exists and reenter eq N then 
break 
else 
clear vvsiname 
clear vintdate 
clear vepic 
clear vstolen 
clear vintreml 
clear vintrem2 
clear vintrem3 
endif 
endif 
else 
break 
endif 
engue 1 


wee "More intelligence to ence, Aneueene CNee™ ae | Saeew 
fillin mrintel using "(" at 15 
if mrintel fails or mrintel eq ? cadtton 
clear all variables 
set var more to Y 
else 
set var more to N 
endi 
endwhile *(end of main loop) 
set error messages of 
set null -0- 
return 
*( end ) 


SCOMMAND — 
AM PINT 
K ( RAAAKAAKAKKAKAKAKAKKARKEKK RARER ARKAARERER ARK RRARERARKERRREREREKKKAKKKRAKKKAK 


Program: nae and Modify Personnel Intelligence 

Author: | Gust 1987 and J D Allen 

Dace Wileren: 98 

Description: This pro a: allows the user to input 
and modify personnel intelligence 
information. 

Tables Used: perintel 

Temp Tables: none 

Reports Used: - none 

Forms Used: pintform 


RAKARRKKRKKAARKKRKKARKKARKKARRRKKRKKAKRKARRKARKARKRARKKKR RRR RRA KRRRARRRERKZ ) 


set error megscges on 
set messages of 
set escape off 
newpage 
write "Program loading in progress. Please stand by ......." at 10 10 
clear all variables 
set null ? 
set var moner to” Y ; 
while more eq Y then *(main loop) 
newpage 
write "Do you wish to (A) dd or Bessey information?!" at 10 10 
fillin choice using “>leac it 
if choice eq A then *(add ineorewtian) 
newpage 
set var vintdate to 
set var vintdob to oi 70771901 
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write "Press [PGDN] to load data or [ESC] to quit" at 1 l 
draw pintform with all at 3 
Sdit var return esc ag 
if #return eq pgdn then 
newpage 
Write "Loading perintel" 
load perintel ; 
-vlname .vintdob .vintreml .vintrem2 .vintrem3 .vintdate + 
.viname .vintm1 
end 
endif 
endif 
while choice eq M then *(modify information) 
newpage are. — 
write "Enter last and first names of individual requiring + 
changes, then ST at 1 1 
Write "[PGDN] to see if person exists in the database or [ESC] + 
Eeequzt” at 2 1 | 
draw pintform with all at 4 
edit var viname vfname return esc pgdn 
a2 return eq Eee then 
paeeean et el for perintel where intiname eq .vlname and + 
iiertame eq .viname 
poole cl.eéq 0 then | 
set var vlname to intlname in #1 
set var vfname to intfname in #1 
set var vintdob to intdob in #1 
fet. Var Vintmi to intmi in #1 
set var vintreml to pintreml in #1 
sec Var vintremZ to pintrem2 in #1 
Seesvar vintrem3 to pintrem3 in +1 
set var vintdate to pintdate in #1 
newpage 
draw pintform with all at 1 
write "Correct individual (Y)" at 23 25 
mrilin correct using "(" at 23 44 
if correct fails or correct eq Y then 


newpage | 
write "Press. [PGDN] to change database or [ESC] to quit" + 
ae 1 1 


draw pintform with all at 3 
Panta var Reburn ese agen 
if #return eq pgdn then 
set error messages off 
change intlname to .vlname in #1 
change intdob to .vintdob in #1 
Changes pantreml te .vintremit in #1 
change pintrem2. to .vintrem2Z in #1 
change pintrem3 to .vintrem3 in #1 
change pintdate to .vintdate in #1 
change intfname to .vfname in #1 
change intmi to .vintmi in #1 
Se lwerror messages on 
endif 
etiasvar Chore’ to N 
break 
endif 
next #1 el 
endwhile 
LE el need then 
newpage an 
; write "This individual does not exist in the personnel + 
meeelligence file" at 5 10 
write "Do you wish to reenter name? (Y)" at 15 10 
fillin reenter using "(" at 15 39 
if reenter exists and reenter eq N then 
brea 
else 
clear vlname 
clear vfname 


we) 


clear 
clear 
clear 
clear 
clear 
Gillean 
endit 
endif 
else 
break 
Sr canr 
endwhile 
newpage 


write 'More intelligence to epiek Moga (Yat SeZo 
fillin mrintel using@e'"(" ares 
if mrintel fails or mrintel eq 7 then 


vintdob 
vintreml 
vintrem2 
vintrem3 
vintm1 
vintdate 


clear all variables 
set var more to Y 


else 


set var more to N 


endif 


endwhile *(end of main loop) 


set error messages o 


set null -0- 
recur 
x{ end ) 


328 





APPENDIX I 
SREPORTS SOURCE CODE 


$ COMMAND 


RPTMAIN 
K (KRAKAKAAAKKKK KKK AKKK KKK KKK KKK RK RRR RR RRR RK RRR RRR KKK KKK KAKA KK KK KKK KK KKK 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


REPORTS MAIN MENU APPLICATION PROGRAM 


Author: Jon D. Allen, LT, USCG 
Heidi R. Lang, LT, USN 
AUGUST 1987 


KEAEKKKKKKKKKKKKKKKAKKAKAKKKKKKKKKKKKEKKKREKRKKKEKKEKKKKEEEKEKKEKKEKEKKEREKREKRKRREREREERE ) 


set error messages off 

set messages of 

set escape orf 

Clear all variables 

newpage | 

set var pick4 integer 

newpage 

choose pick4 from rpt_menu in sreports.apx 

if pick4 eq 0 then 
quit to restrpts.cmd 

endif 

1f pick4 eq 1 then 
run INT_RPTS in sreports.apx 
quit for restrpts. cm 
endif 

if pick4 eq 2 then 
run BRD_RPTS in sreports.apx 
Guat to restrpts.cmd 

endif 

1f pick4 eq 3 then 
run SAR_RPTS in sreports.apx 
quit to restrpts.cmd 

endif 

1f pick4 eq 4 then 

- run VSL_RPTS in sreports.apx 
quit to restrpts.cmd 

endif 

1f pick4 eq 5 then 
run PRS_RPTS in sreports.apx 
quit to restrpts.cmd 

endif 

if pick4 eq 6 then 
quit to restmain.cmd 

endif 

quit to restrpts.cmd 

return 

Smenu 

rpt_menu 

column SARELTIS --- REPORTS MENU 

INTELLIGENCE REPORTS 

BOARDING REPORTS 

SAR REPORTS 

VESSEL REPORTS 

PERSONNEL REPORTS 


ao 


RETURN TO MAIN MENU 
*( end ) 


S COMMAND 
INT_RPTS 
 ( KRAKAAKAAKKAKKAKAKKAAKK RAKKAKAKAKKAAKKAKKKKAKAKAKAKKREKKARKAAKKRAKRKKK 
Program: Access net gone Reports 
Author: | J D Allen and H R Lang 
Dateennrlccen: August 1987 
Description: This program calls the anteiiigence réepores 
master menu and application programs. 
Tables Used: none 
Temp Tables: none 
Reports Used: none 
Forms Used: none 


KAAKAKKKKKAKKKKKRKKKAKKKERKKAAKKKKKRKKKKAKKKKAKRARRRK A KAKRRKRERKERRRKKKER ERK ) 


run INT_MAIN in intrpts.apx 


recur 

*( end ) 

S COMMAND 

BRD_RPTS 

 ( RERKKKAKAKKKAKKAKAKKAAKAKKAKARKKAKKAKARKKAKKKAKAKKAKKAKKAKKKAKKAKKKKAKKR 
Program: Access Boarding Eeports 
Author: | J D Allen and H R Lang 
Daven Wilt Cen: August 1987 . 
Description: This program calls the boarding reports 

master menu and application programs. 

Tables Used: none 
Temp Tables: none 
Reports Used: none 
Forms Used: none 


KRAAAKKRKKAKAKKKKKKKKKKKKKKKKKAAKRKKAKKAKKRKRKAKKKRKKKKAKK RR AAKRKRKKKAARKRKKKE ) 


run BRD_MAIN in brdrpts.apx 


Be wuien 
*( end ) 
S COMMAND 
SAR_RPTS 
A ( KERAKKAKKAKAKKAKARKKAKKAKKAKAKKKAKAKKAKAKAKAKKKAKARKKKAKARKKARKKRKARKARK 
Program: Access Sar Reports 
Author: | J D Allen and H R Lang | 
Date Wie tcem: August 1987 
Description: This program calls the SAR reports master 
menu and application programs. 
Tables Used: none 
Temp Tables: none 
Reports Used: none 
Forms Used: none 


RAKKAKKKAAKKKKAKAKKKAKKAKKAKKKKKKKKKKAKKKRKAKKRKKAAKEKKKAKKKRKKKRKKRKARKKAKRKKKRER ) 


run SAR_MAIN in sarrpts.apx 
return 
*( end ) 
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S COMMAND 
VSL_RPTS 


K (KEAKKKKKKAKKAKKKAKKKKKKKAKAKKKAKKKKKKKKKKAKKAKKKAKAKKAKARAAKKRKKAK AK AKK KK KA 


Program: 
BeenOr : 
Dawe Written: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Access Vessel Reports 

J D Allen and H R Lang 

August 1987 

This program calls the vessel reports 
master menu and application programs. 
none 

none 

none 

none 


RAKKAKKKAKKKKAKKKKKKKKKKKKKKKKKKKKKRKKKKKRKAKAKAKAKKKKRKAKRRRKRKRKKKKKKKKK ) 


run VSL_MAIN in vslrpts.apx 


return 

*( end ) 

$ COMMAND 

BRS RPTS 
Program: 
Becnor: 
pacer Written: 
Description: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Access Personnel Reports 

J D Allen and H R Lang 

August 1987 

This program calls the ene reports. 
master menu and application programs. 
none 

none 

none 

none 


RKAKKKKKKKRKKARKKKKKKRKAKKKAKRKKRKKKRKAKRKAKK KKK RARKKKKKAKKKKKKRKEKKRKAKAKRKE K ) 


run PRS_MAIN ‘in prsrpts.apx 


return 
*( end ) 
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APPENDIX J 
INTRPTS SOURCE CODE 


$ COMMAND 


INT_MAIN 
K ( KRKKKKKKKAKKKKKAKAKKKAKKKRKAKAKKKRK KKK RARER KRRKEKKERKKKAKAKKKRKKKKRKKKK KKK 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


INTELLIGENCE REPORTS MENU and APPLICATION PROGRAMS 


Author: Jon D. Allen, LT, USCG 
Heidi R. Lang, LT, USN 
AUGUST 1987 


AAKKKKKKAKKKRKRKK KEKE RKKK AKER RRA RK AKRRRRKKAKRRRRRKRK RRR RRKRKRRRRKAAKRRRRREE ) 


set error messages off 
set messages 0o 
set escape off 
cieg” eo variables 
newp 
choose “picks from int_menu in intrpts.apx 
f pickS eq 0 then 
quit to restint.cmd 
endif 
if pick5 eq i then 
run EPICDUMP in intrpts.apx 
quit to restint.cmd 
endif 
if picks eg 2 ten 
run INT LRPT in intrpts.apx 
Qua COmmescrine cng 
endif 
if pickS eq 3 then : 
run PERINTEL in intrpts.apx 
Supe tO nescint cme 
endif 
if pick5 eq 4 then 
GUILE EO Resithpescane 
endif 
if pickS eq 5 then 
quit to restint.cmd 
endif 
quit to restint.cmd 
rectum 
smenu 
int_menu 
column SARELTIS --- INTELLIGENCE REPORTS 
VESSEL INTELLIGENCE ANALYSIS (EPIC) 
VESSEL PROFILE FOR INDIVIDUAL VIOLATIONS ANALYSIS 
PERSONNEL INTELLIGENCE SUMMARY 
RETURN TO REPORTS MENU 
*( end ) 


S COMMAND 


PERINTEL 
K (RRRAKAKAKKKKKKKK KKK RRR RRR RRR RAK RAK KKK KKK RRR RRR ERERRKRK KK RK ARAKRERK KE 
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Program: Personnel Intelligence Dump Program 


Author: | J D Allen and H R Lang 
Date Written: August 1987 — 
Description: - This program performs a listing by date and 


by alphabtic search of those personnel in 
the table PERINTEL (personnel intelligence). 


Tables Used: perintel 
Gemp Tables: persum 
Reports Used: perintel 
Forms Used: none 


RARKKKAKRKRKRKKRKAKAKRKRKKKKKKKAKKRKAKAKAKKAKAAKAKKAKKAKKAKAKAKAKKKKKKRKKKKKRRKKRKRRKRRRREERR ) 


see null ' " 
set error messages off 
set messages of 
S@c @scape on 
newpage . 
clear all variables 
Between rOr messages off 
write "This program will perform dump intelligence information" at 3 l 
eee on people that aré.in the PERINTEL table. Information" at 4 1 
write paey be selected by alphabetic and intelligence date." at 5 1 
set var strtdate date 
set var enddate date 
set var datediff to 0 
Seceerror messages on 
while datediff <= 0 then 
write "Please enter Sear id ee if. the form i/DD/YYYyY:" at 8 1 


meen strtdate using" " a 
fieeee Lease venter ending date im the form MM/DD/YYYY:" at 10 1 
fmeran enddate using " " at 10 53 
aed Gatediff to .enddate - .strtdate 
endwhile 
newpage 


write "You will now be asked to provide beginning and ending " at 3 1 
write "letters to start and end the alphabetic search. If you" at 41 
Potwemuemter an [a] and a [z].you will getwall of the aes et eS 1 
Write "in the the table PERINTEL whose intelligence date is " at 6 1 
Write "between the dates that you previously entered." at 7 
set var strtltr text 
sec var endltr text 
set var ltrdiff to 0 
while ltrdiff = 0 then . 
fillin strtltr using "Please enter starting letter(s):" at 10 1 
Zeeban endltr using "Pleasewenter ending letter(s):" at 12 1 
Pomemeectr It .strtltr then 
get var ltrdiff to 0 
else 
break 
endif 
endwhile 
set error messages off 
remove persum 
newpage 
clear numrows 
Set var numrows integer. 
Mecwect persum from perintel using all sorted by intlname + 
where pintdate ge .strtdate and pintdate le .enddate and + 
intlname ge .strtltr and intlname le .endltr 
compute numrows as rows from persum 
newpage 
Write ''Now Peeper Eng report" 
1f numrows fails or numrows = 0 then . 
write "No records exist that match your selection criteria" at 10 10 
Write "Please press any key to continue" at 16 15 
pause 
else ; 
output printer with perintel.rpt 
newpage 
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Print perintes 
output screen 
endif 
remove persum 
newpage 
clear all variables 
return 
k( end ) 


$ COMMAND 


EPICDUMP 
K (AKAKKAAKKKAKKKRRKAKKK KKK KKKK RK RRR KAKRKK ARR KKKK KKK RKRKKAKKKKKAKKAKKKKRK 


Program: EPL ine Ligence Analysis 

Author: J D Allen and H R Lang 

Date Wri ctem. August 1987 { 

Description: Performs a dump of all vessels in the 
VSLINTEL table within a specified time 
period. Four reports are generated 
providing listings ae BeuG Codes by 
stolen vessels, and by intelligence 
remarks, and a frequency breakdown 
and analysis of EPIC Codes. 


Tables Used: Vs Hanged . 

Temp Tables: epicsum, stolesum, intelsum, epictmpl, 
eDIctnpz a eo lernse 

Reports Used: epicsum, stolesum, intelsum, epicrpt 

Forms Used: none 


RARRKKAKKKRKAKRKRKKKKRKAKKRRKRAKK KKK RKEKKAKAKRAAKARKKK KK RK RRKKKAAKRKAKKKKKEZ ) 


set error neeeeae= off 
set messages of 
set escape on 
newpage 
cies variables 
set nui! a 
newpage 
write "This program performs a dump of all vessels, by EPIC + 
Codeystolen"” at'2 1 ; 
WE rec OCSe: which intelligence information has been-collected." + 
a 
Werte, sneer to be analyzed can be selected within a specified" + 
at 
write "time period." at 5 1 
set var strtdate date 
set var enddate date 
set var datediff to 0 
set error messages .on 
while datediff <= 0 then . . 
write "Please enter starting date in the form MM/DD/YYYY:" at 8 1 
Fillin StmpEedarew using. ay eaceomon 
write "Please enter ending date in the form MM/DD/YYYY:" at 10 1 
Pillin enddate using " "| ames. 
set var datediff to,.enddate - .strtdate - 
endwhile 
set error messages off 
remove epicsum 
remove stolesum 
remove intelsum 
newpage 
project epicsum from vslintel using epiccode intdate intvname stolen + 
sorted by epiccode intvname where intdate >= .strtdate an 
intdate <= .enddate and epiccode exists 
compute numrows as rows from epicsum 
newpage 
write "Now popeaune sorted vessel EPIC Code report......" at 10 1 
1f numrows fails or numrows = 0 then 
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write "No records exist that match your selection criteria" at 10 10 
write "Please press any key to continue” at 16 15 
pause 
else 
output printer with epicsum.rpt 
newpage - 
print epicsum 
Sueput screen 
endif : 
remove epicsum 
newpage 
clear numrows . 
peogect stolesum from vslintel using intdate intvname stolen sorted by + 
intvname where intdate >= .strtdate and intdate <= .enddate and + 


stolen = Y 

compute numrows as rows from stolesum 

write "Now preparing sorted stolen vessel report...... ate 1 Om 
1£ numrows Bele or numrows = 0 then 


Weave 'Nowerecords exist that match your selection criteria” at 10 10 
umate "Please press any key to continue” at 16 15 
pause 
else 
Gutput printer with stolesum.rpt 
newpage 
print stolesum 
Seeputc screen 
endif 
remove stolesum 
newpage 
clear numrows 
Peogece intelsum from vslintel using intdate vremarkl vremark2 + 
vremark3 intvname sorted by intvname intdate where vremarkl exists + 
or vremark2 exists or vremark3 exists 
compute numrows as rows from intelsum —_| 
Write "Now Esereaing sorted vessel intelligence remarks report" at 10 1 
1f numrows fails or numrows = 0 then 
write "No records exist that-match your selection criteria" at 10 10 
Write 'Please press any key to continue! at 16 15 
pause 
else 
output printer with intelsum.rpt 
newpage 
peint intelsum 
QuEpet screen 
endit 
remove intelsum 
remove epictmpl 
remove epictmp2 
newpage . . . 
project epictmpl from vslintel using epiccode intdate where intdate + 
>= .strtdate and intdate <= .enddate and epiccode exists 
project epictmp2 from epic using all sorted by epicno 
remove epictmp 
define 
attribute 
Sepct eal 
ecnumber integer 
rélation 
=P with epicno epicdscl epicdsc2 epicdsc3 epicdsc4 ecnumber ecpct 
en 
compute totepics as count epiccode from epictmpl where epiccode exists 
set var pcttmpl real 
sét pointer #1 nl for epictmp2 
While nl eq 0 then . ; 
set var epictest to epicno in #1 
set var edscl to epicdscl in #1 
set var edsc2 to epicdsc2 in #1 
set var edsc3 to epicdsc3 in #1 
set var edsc4 to epicdsc4 in #1 
compute epicnum as count epiccode from epictmpl where + 
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epiccode = .epictest 
1f totepics = 0 then 


; set var pcttmpl to .epicnum / 1.0 *(prevents division by 0) 
else 

set var pcttmpl to .epicnum / .totepics 
endif 


set var pcttmp2 to .pcttmpi x 100.0 
load epictm 
-epictest .edscl .edsc2 .edsc3 .edsc4 .epicnum .pcttmp2 


end 
next #1 nl 
endwhile 
write 'Now prepara ng vessel EPIC code frequency néport......' "anaes 
output printer with epicrpt.rpt 
newpage — 
print epicrpt 
neweage 
output screen 


remove’ epictmp2 
remove epictmp 
remove epictmpl 


newpage 
clear all variables 
Be tea 
*k( end ) 
S COMMAND 
INTELRPT 
KR ( RARKAAAKKKAKK RAK AK KAKARKKRERKK RAK RK AKERK KAR KKARKK RR AAR RKARKAKKRAKRKRKKK 
Program: Violation Vessel Profile Intelligence 
Author: J D Allen and H R Lang 
Dates Wratten August 1987 
Description: This program examines vessel poanaeae to - 
Crea toma” Pagras of vessel which violate | 
specific laws during a specified time period. 
Tables Used: boarding, vessel, viols, boattype, boatuse, 
constr, engcomp, fuelcomp, hullmat, boatprop 
Temp Tables: bosum, vsilsum, violsum, vslmo, 


summaryl, summaryZ2, summary3, summary4, 
summary5, summary6, summary7, temp 


Reports Used: vtypemo, vusemo, vconstmo, vengmo, 
vfuelmo, vhullmo, vpropmo, vlenftmo, 
vyearmo 

Forms Used: none 


KRAKREKKRKKAKKKKRKRAAKK RK KKK KKK KKKKKKKAKKKRKKKKAAKRKERKA AKA RRRRRAAKRKKRKRRERK ) 


set nul ' 

set error fees off 
set messages of 

set escape on 

newpage 

clear all variables 
remove vslsum 

remove bosum 

remove violsum 

remove temp 

remove summaryl 

remove summary2 

remove summary3 

remove summary4 

remove summary5 

remove summary6 

remove summary? 

newpage 

led aia variables 
write "This module performs a statistical analysis of vessel "at 21 
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write 2 Cae information during a specified time period " at 3 l 
set var strtdate date 
set var enddate date 
set var datediff to 0 
set error messages on 
while datediff <= 0 then | 
write "Please enter starting date in the form MM/DD/YyYyYY:" at 8 1 


Peer strtdate using" " at 8,51 
write "Please enter ending date in the form MM/DD/YYYyY:" at 10 1 
fmm enddate using " " at 10 51 
SeerVar Gatediff "to .enddat® - .strtdate 
endwhile 
set error messages off | 
write "Now finding information which meets date criteria....... "Wat lide 1 


project bosum from boarding using bodate bono viol54 viol55 viol56 + 
fee VLOL58 vi01l59 viol60 viol6l viol62 viol63 viol64 viol65 viol66 + 
viol67 viol68 uns69 uns70 uns71 uns72 uns73 uns74 uns75 uns76 uns77 + 
uns78 uns79 bovhin weapons where bodate >= .strtdate and + 
bodate <= .enddate 
Beoject vslsum from vessel using vslconst vsleng vslfuel vslhull + 
» vsllenft vslprop vsltype vsluse vslyear vsltons vslhin 
apn bosum using bovhin with vslsum using vslhin forming violsum + 
where eq 
remove bosum 
remove vslsum 
compute totbrds as count bono from violsum where bono exists 
compute numrows as rows from violsum 
newpage 
set var code to 0 
set error messages on 
Mina Be code < 54 or code > 80 then a 
write "Please enter 1n violatien code,or unsafe. condition that " + 


aie l 1 
: ee "you wish to run a vessel desription statistical summary:" + 
a 
write "54 - Numbering 69 u.sUmeate Condutions + 
Causing" at 4 1 a. 
ium o> - Certificate . . Tepmination” at 5 1 
fae oo - Personal Flotation Device 10 ~- Conrected sons the + 
Seer at 6 1 a 
Woeeces '"5/ = Sound Producing Device 71 -,Ovenloaded™ gat 7.1 
ww oo - Bell 72 - Accumulation of fuel + 
in*bilgés" at 8 1 
Pies 59. - Fire Extinguisher 73,2 Fuel Leak" at 9 J 
write '60 - Flame Control 74 - Manifestly Unsafe + 
Voyage” at 10 1 
wWeree ''61 - Ventilation 79 -#Hazardous «Bass» + 
Meumeeistrict)'" at 11 1 , a 
; igh "62 - Nav./Anchor Lights 76 “Alcohol Gendiutien" + 
a 
write "63 - Negligent Operation 1) =O tier Ska | 
write "64 = Failure to Terminate 78 - Warning Issued" at 44 1 
| weiwe, soo - Pollution Placard Not Posted 79 ~ No Violation" at 15 1 
: ee "66 - Marine Sanitation Devices 80 - Weapons On Board! + 
- a 


write "67 = Visual Distress Signals" at 17 1 
Tepe oo = Document/Official Wumbers" at 18 1 
fillin code using "Please enter code: " at 20 24 
endwhile 
set error messages off 
remove vslmo 
newpage 
primes “Now @valudting vessel profiles.........." at 11 1 
*(this next section of code finds the information only 

dealing with the specific violation code) 
1f code = 54 then 

aise vslmo from violsum using vslconst vsleng vslfuel vslhull + 

2 enft vslprop vsltype vsluse vslyear bono where viol54 exists 
endi 
1f code = 55 then 
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Beaec vslmo from violsum using vslconst vsleng vslfuel vslhull 
aves enft vslprop vsltype vsluse vslyear bono where viol55 exists 
endi 
1f code = 56 then j : | 
pages t vslmo from violsum using vsliconst vsleng vslfuel vslhull 
ae enft vslprop vsltype vsluse vslyear bono where viol56 exists 
endi 
1f code = 57 then 
PEO e vslmo from violsum using vslconst vsleng vslfuel vslhull 
see enft vslprop vsltype vsluse vslyear bono where viol57 exists 
endi 
if code = 58 then 
project vslmo from violsum using vslconst vsleng vslfuel vslhull 
Bia enft vslprop vsltype vsluse vslyear bono where viol58 exists 
endi 
if code = 59 then 
Pro eae vslmo from violsum using vslconst vsleng vslfuel vslhull 
Nea enft vslprop vsltype vsluse vslyear bono where viol59 exists 
endi 
1£f code = 60 then . 
Ba oe vslmo from violsum using vslconst vsleng vslfuel vslhull 
Ae enft vslprop vsltype vsluse vslyear bono where viol60 exists 
endl 
1f code = 61 then 
Pest vslmo from violsum using vslconst vsleng vslfuel vslhull 
ae enft vslprop vsltype vsluse vslyear bono where viol6l exists 
endl 
1£ code = 62 then | 
project vslmo from violsum using vslconst vsleng vslfuel vslhull 
ee enft vslprop vsltype vsluse vslyear bono where viol62 exists 
endi 
1f code = 63 then - 
Bee ee vslmo from violsum using vslconst vsleng vslfuel vslhull 
see enft vslprop vsltype vsluse vslyear bono where viol63 exists 
endi 
1f code = 64 then : 
pao eae vslmo from violsum using vsiconst vsleng vslfuel vslhull 
Nea enft vslprop vsltype vsluse vslyear bono where viol64 exists 
endi 
1£ code = 65 then i 
PaaS vslmo from violsum using vslconst vsleng vslfuel vslhull 
Ae enft vslprop vsltype vsluse vslyear bono where viol65 exists 
endi 
1f code = 66 then . 
pro ject vslmo from violsum using vslconst vsleng vslfuel vslhull 
vsllenft vslprop vsltype vsluse vslyear bono where viol66 exists 


if code = 67 then 
PECne vslmo from violsum using vslconst vsleng vslfuel vslhull 
ae. enft vslprop vsltype vsluse vslyear bono where viol67 exists 
endi 
1£ code = 68 then 
project vslmo from violsum using vslconst vsleng vslfuel vslhull 
es enft vslprop vsltype vsluse vslyear bono where viol68 exists 
endi 
1f code = 69 then 
project vslmo from violsum using vslconst vsleng vslfuel vslhull 
en enft vslprop vsltype vsluse vslyear bono where uns69 exists 
endi 
1f code = 70 then 
project vslmo from violsum using vslconst vsleng vslfuel vslhull 
Nes enft vslprop vsltype vsluse vslyear bono where uns70 exists 
endi 
if code = 71 then ; 
pro] eee vslmo from violsum using vslconst vsleng vslfuel vslhull 
Rica enft vslprop vsltype vsluse vslyear bono where uns71 exists 
endi 
1f "e6del=)72echen . 
Powe. vslmo from violsum using vslconst vsleng vslfuel vslhull 
vsllenft vslprop vsltype vsluse vslyear bono where uns72 exists 
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endif 
an code = 73 then . 
Baorect vslmo from violsum using vslconst vsleng vslfuel vslhull + 
aE enft vslprop vsltype vsluse vslyear bono where uns73 exists 
endi 
if code = 74 then 
acct vsimo from violsum using vslconst vsleng vslfuel vslhull + 
vsllen vslprop vs e vsluse vslyear bono where uns exists 
eae tt lprop Levy a ly b h 74 te 
endi 
me code = 75 then 
Bee yect vslmo from violsum using vslconst vsleng vslfuel vslhull + 
vslien vslprop vs e vsluse vslyear bono where uns eXists 
ae ft vslprop vsltyp dj ly b h 75 t 
endi 
= code’ - 76 then 
. BE eet vslmo from violsum using vslconst vsleng vslfuel vslhull + 
ee enft vslprop vsltype vsluse vslyear bono where uns76 exists 
endi 
1£ code = 77 then 
Pacwect vslmo from violsum using vslconst vsleng vslfuel vslhull + 
ye enft vslprop vsltype vsluse vslyear bono where uns77 exists 
endi 


me it code = 78 then | 
puget vslmo from violsum using vslconst vsleng vslfuel vslhull + 
pes enft vslprop vsltype vsluse vslyear bono where uns78 exists 
endi 
if code = 79 then | | 
eect vslmo from violsum using vsliconst vsleng vslfuel vslhull + 
vslienft vslprop vsltype vsluse vslyear bono where uns79 exists 


a —— —_— << 


endif 
if code = 80 then . 
Baoaect vslmo from violsum using vslconst vsleng vslfuel vslhull + 
ae enft vslprop vsltype vsluse vslyear bono where weapons exists 
endi 
compute numrows as rows from vslmo 
remove violsum 
remove summaryl 
remove summary2 
remove summary3 
remove summary4 
newpage 
remove summary5 
remove summary6 
remove summary/7 
newpage 
if numrows fails or numrows = 0 then 
Wieeee wo récords exist thet match your,Selection criteria” at 10 10 
write "Please press any key to continue" at 16 15 
pause 1 
else aia 
*(Now getting violation code description) 
set pointer #1 nl for viols 
while ni eq O then - 
Set var vno to violno in #1 
1f code = .vno then , 
set var vltndesc to violdesc in #1 
break : 
endif 
next #1 nl 
endwhile 
newpage 
mse Drepermg Vessel type démographlcs..m .......<ielaieiele. «cls. " 
define 
attributes 
Geunter integer 
typedesc text 15 
pelacaon — 
caareryi with vsltype typedesc counter 
en 
set pointer #1 nl for boattype 
while nl eq O then 
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set var typetest to vtype in #1 
set var typdescl to vtypedes in #1 
Sonne sumtype as count vsltype from vslmo where + 
vsltype = .typetest | 
1f sumtype fails then 
set var sumtype to 0 
endif 
load summaryl 
.typetest .typdescl .sumtype 
end 
next #1 nl 
endwhile : 
compute totviols as sum counter from summaryl 
output printer with vtypemo.rpt 
newpage 
print vtypemo 
output screen 
remove summaryl 
write "Preparing vessel use demographics........... se) sees eee 
define 
attributes . 
HUNESe sheeger 
usedesc text 15 
re laclousms 
sunaay 2 with vsluse usedesc numuse 
en 
set_poimtemetlenl forsbeadtuce 
while nl eq O then 
set var usetest to vuse in #1 
set var usedescl to vusedesc in #1 
compute sumuse as count vsluse in vslmo where vsluse = .usetest 
if sumuse fails then 
set var sumuse to 0 
endif 
load summary2 
-usetéest .usedescl .sumusce 
en 
next #1 nl 
endwhile . 
compute totviols as sum numuse from summary2 
output printer with vusemo.rpt 
newpage | 
print vusemo 
output screen . 
remove summary2 . 
write "Preparing vessel ‘Genstruetion type demecrapates- es 
ele nee 
aber Moutes 
numconst integer 
eonstdes text 16 
Kel aed Onsae ss 
SummauyS with vslconst constdes numconst 
en 
set pointer #1 nl for constr 
while: nil eqe0) then 
set var consttst to constype in #1 
set var constrds to consdesc in #1 _ 
compute sumconst as count vslconst in vslmo where + 
vslconst = .consttst 
‘1£ sumconst fails then 
set var sumconst to 0 
Shears 
load summary3 
-consttst .constrds .sumconst 
end 
next #1 nl 
endwhile . 
compute totviols as sum numconst from summary3 
output printer with vceonstno.rp. 
newpage 
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pant .constmo 
OMtpucC screen 
remove summary3 
write "Preparing vessel engine compartment demographics...." 
derine 
attributes 
numeng integer 
engdesc text 10 
relations _ 
sugeery4 With vsleng engdesc numeng 
en 
set pointer #1 nl for engcomp 
while nl eq 0 then . 
set var engtst to ecomptyp in #1 
set var engdescr to ecompdes in #1 


compute smneng as count vsleng in vslmo where vsleng = .engtst 
s 


if sumeng fai then 
set var sumeng to 0 
endif 
load summary4 
-engtst .engdescr .sumeng 
end 
next #1 nl 
endwhile 
compute totviols as sum Bune ag from summary4 
output printer with venomo.rp 
newpage 
Peace yengmo 
output screen 
remove summary4 
Write "Preparing fuel compartment type demographics......... 
define 
AGcmabutes 
numfuel integer 
fueldesc text 10 
Geiations — 
ery with vslfuel fueldesc numfuel 
en 
set pointer #1 nl for fuelcomp 
while nl eq 0 then . 
set var fueltst to fcomptyp in #1 
set var fdesc to fcompdes in-#1_ | 
compute sumfuel as count vslfuel in vslmo where vslfuel = 
1f sumfuel fails then 
set var sumfuel to 0 
endif 
load summary5 
.fueltst .fdesc .sumfuel 
end 
next #1 nl 
endwhile 
compute totviols as sum numfuel from summary5 
output printer with vfuelmo.rpt 
newpage 
print vfuelmo 
output screen 
remove summary5 aii 
(nae Ereparing hull mat®rval Gemographics...........s.ee. 
define 
attributes 
numhull integer 
hulldesc text 15 
relations _ 
een with vslhull hulldesc numhull 
e 


n 
set pointer #1 nl for hullmat 
while nl eae then 

set var hulltst to hmattype in #1 

set var hdesc to hmatdesc in #1 

compute sumhull as count vslhull in vslmo where vslhull = 
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.fueltst 


hulltést 


1£ sumhull fails then 
set var sumhull to 0 
endif 


load 


end 
next 


SATE Se Aes 


summary6 
.sumhull 


#1 nl 


endwhile 


compute 


totviols as sum numhull from summaryé6 


output printer with vhullmo.rpt 


newpage 


print vhullmo 

OUEBUL SEreen 

remove summary6 

write "Preparing vessel propulsion demographics..........0. iu 


define 


attributes 


numprop 


descprop tex 


integer 
15 


relations 
summary7 with vslprop descprop numprop 


end 


set pointer #1 nl for boatprop 


while nl eq 0 


then 


set var proptst to proptype in #1 

set var prdesc to propdesc in #1 

compute Sune as count vslprop in vslmo where vslprop = .proptst 
Ss 


if sumprop fai 


then 


set var sumprop to 0 
endif 
load summary7 
-—proptst .prdeses.sumprep 


end 
next 


#1 nl 


endwhile 


compute 


totviols as sum numpiigp -£60u summary7 


output printer with vpropmo.rp 


newpage 


print vpropmo 
OUTDUE Screen 
remove summary? 


write "Preparing vessel length demographics................" 

compute totvsls as count bono from vslmo where vsllenft exists 

compute len<20 as count bono from vslmo where vsllenft < | 

compute len2030 as count bono from vslmo where vsllenft >= 20 and + 
vsllenft < 30 

compute len3040 as count bono from vslmo where vsllenft >= 30 and + 
vsllenft < 40 | 

compute len4050 as count bono from vslmo where vsllenft >= 40 and + 
vsllenft < 50 

compute len5060 as count bono from vsimo where vsllenft >= 50 and + 
vsllenft < 60 

compute len6070 as count bono from vslmo where vsllenft >= 60 and + 
vsllenft < 70 

compute len7080 as count bono from vslmo where vsllenft >= 70 and + 
vsllentt < 80 

compute len8090 as count bono from vslmo where vsllenft >= 80 and + 


vsllenft < 90 


compute 
vsllenft < 


nae as count bono from vslmo where vsllenft >= 90 and + 


compute len>100 as count bono from vslmo where vsllenft >= 100 
*(computing total number of violations) 

set var tvl to .len<20 + .len2030 

set var tv2 to .len3040 + .len4050 

set var tv3 to .len5060 + .len6070 

set var tv4 to .len7080 + .len8090 

set var tv5 to .len>100 + .len90100 

set var tvlO to .tvl + .tvZ 

set var tv20 to .tv3 + .tv4 

set var tv30 to .tv5 + .tvl0 
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set var totviols to .tv20 + .tv30 
set var pct<20 real 
set var pct2030 real 
set var pct3040 real 
set var pct4050 real 
set var pct5060 real 
set var pct6070 real 
set var pct7080 real 
set var pct8090 real 
set at pct90100 real 
set pct>100 real 
(Evaluating a peng te eis based on total boardings) 
set var <20 to .len<20 / .totbrds 
set var Bct2030 to .len2030 / .totbrds 
set var pct3040 to .len3040 / -totbrds 
set var pct4050 to .len4050 / .totbrds 
set var pct5060 to .len5060 / .totbrds 
set var pct6070 to .len6070 / .totbrds 
set var pct7080 to .len7080 / .totbrds 
set var pct8090 to .len8090 / .totbrds 
set var pct90100 to .len90100 / .totbrds 
set var pct>100 to .len>i00 / .totbrds 
set var ct<20 real 
set var vpct2030 real 
set var vpct3040 real 
set var vpct4050 real 
set var vpct5060 real 
set var vpct6070 real 
set var voct7080 real 
set var vpct8090 real 
set var vpct9010 real 
set var vpct>100 real 
*(Evaluating peu ceneages based on total violations) 
set var <20 to .len<20 / .totviols 
set var vpet2030 to .len2030 / .totviols 
set var vpct3040 to .len3040 / .totviols 
set var vpct4050 to .len4050 / .totviols 
set var vpct5060 to .len5060 / .totviols 
set var vpct6070 to .len6070 / .totviols 
Bee Yer vpct7080 to .len7080 / .totviols 
Mee ver vyocts090 to .lens090 / .totviols 
gee Var vpct9010 to sllen90100 / .totviols 
set var vpct>100 to .len>100 / .totviols 
set var pcttbrds real 
Semevar pettbrds to .totviols / -totbrds 
*(Defining temporary table for printing) 
remove temp 
aoe 
eeu bes 
text 
Seions 
ae with tmp 
end 
set var tmp to xx 
load temp 
. tmp 
end 


output printer with vlenftmo.rpt 


newpage 

print vlenftmo 

QUEPUE screen 

write pee ae vessel year demographics 
compute yr<1960 as count bono in vslmo where 
compute yr<1965 as count bono in vslmo where 
vslyear < 1965 

compute yr<1970 as count bono in vslmo where 
vslyear < 1970 

compute yr<1975 as count bono in vslmo where 
Ugevyeer < 1975 

compute yr<1980 as count bono in vslmo where 
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oe @ @ @ @ 8 @ @ &©& @—6He—mUhH © HF 8 8 8 


vslyear < 1960 
1 


vslyear >= 1960 
vslyear >= 1965 
vslyear >= 1970 
vslyear >= 1975 


and + 
and + 
and + 


and + 


vslyear 
compute 
vslyear 
compute 
vslyear 
compute 
vslyear 
compute 
vslyear 
compute 
S€Levar 


< 1980 
Vr<Ecss 
< ige> 
Vrai70 
< Ieee 
yr<1995 
— eS 
yr<2000 
< 2000 
yr>2000 
vpct<60 


as 


as 


as 


as 


as 


count bono 
count bono 
count bono 
count bono 


count bono 


real 


set 
set 
set 
set 
set 
set 
set 
set 
set 


Var 
Var 
var 
Var 
Var 
var 
var 
var 
var 


vpct<65 
Vpct</0 
VOCkL<a> 
vpct<80 
vpct<85 
wee es 0 
woct<95 
vpct<00 
vpct>00 


real 
real 
real 
real 
real 
real 
real 
real 
real 


*(Evalu 
set var 
set var 
set var 
set var 
set var 
set var 
set var 
set var 
set var 
set var 
set var 
set var 
set var 
set var 
set var 
set var 
set var 
set var 
set var 
set 


var 


atin aa 
vpct< 
vpct<65 
vpct<70 
Vpeu<> 
vpct<80 
vpct<85 
vpct<90 
VDEE<I5 
vpct<00 
vpct>00 
pct<60 
pct<65 
pct<70 
pet<7>5 
pct<80 
pct<85 
pCEe<aU 
De bao 
pct<d0d 
ct>00 


EG 
to 
to 
LO 
EO 
to 
Lo 
EO 
EO 
to 
real 
real 
real 
real 
real 
real 
real 
real 
real 
real 


-VEsoou! 7 
»YP< i865 
¥r<is9 
Vrs 
-VYecueod 
Vaasa 
ir a0 
VES os 
-yr<2000 
» yr>2000 


“RRR, 


* (Evaluating 


set 
set 
set 
set 
set 
set 
set 
set 


var 
var 
var 
var 
var 
Vat 
var 
var 


aceon 


Beecos 
per<70 
Bet<)5 
pct<80 
Bet<o5 
pee<co 
DGEco5 


set var 
set var 
output 
newpage 
Die 7 
newpage 
output 
remove 
remove 
remove 
remove 
remove 
newpage 
remove 
remove 
remove 
remove 
newpage 


pct<00 
pct>d0 
DiRcer 


yearmo 


screen 
temp 
vslmo 
summaryl 
summary2 
summary3 


summary4 
summary5 
summary6 
summary7 


O . 
EO. 


Ome 
to . 
with 


clear all variables 


endif 


yr<1960 
yiE< 1965 
Yu<l oo 


Vino 
-yr<1980 
.ViS1 Joo 
. Vinee 
vr <1oee 


in 
on 
in 
in 


uty 


vsimo 
vslmo 
vslmo 
vslmo 


vslmo 


ALUN 


yr<2000 
yr>2000 
vyearmo 


. totbrds 
.totbrds 


ohp et 
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where 
where 
where 
where 


where 


vslyear 
vslyear 
vslyear 
vslyear 


vslyear 


percentages based on total violations) 
.totviols 
.totviols 
.totviols 
.totviols 
.totviols 
.totviols 
.totviols 
.totviols 
.totviols 
.totviols 


rcentages based on total boardings) 
.totbrds 
. COLEEaS 
.totbrds 
. COEDS 
.totbrds 
. totbrds 
. totbrds 
PEOULDOLaS 


1980 
1985 
1990 
199% 
2000 


and + 
and + 
and + 


and + 


return 
*( end ) 
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APPENDIX K 
BRDRPTS SOURCE CODE 


S COMMAND 


BRD_MAIN 
K (KRKKKKKAKRKKAKAK KKK KKK KKK RK RKK KK KKK REKKKRRKKKKRRKKKKERKREK ER EKRKEKEKKEKEKKRKEK 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


BOARDING REPORTS MENU and APPLICATION PROGRAMS 


Author: Jon D. Allen, LT, USCG 
Heidi R. Lang, LT, USN 
AUGUST 1987 


RERKARRKKKRKKKRKKAKRKKKRRKKRKKKRKKERK KER RARER RRKKRRKKRKKRRRKRRKKR EKER ZK ) 


set error messages off 

set escape off 

set messages off 

clear all variables 

newpage - 

set Var Picko Integer . 

choose pick6 from brd_menu in brdrpts.apx 

1f picks eq O then 
quit to restbrd.cmd 

endif 

1f pick6meq 1 then 
run VIOLFREQ in brdrpts.apx 
guit to restbrd.cmd 

engi 

1f pilGkoyeamaetben 
run BOARDING in brdrpts.apx 
quit “Om restprd-cna 

endif 

1f pick6 eq 3 then 
Fun CMERE? sin Dndrpeseads 
quit to restbrd.cmd 

endif 

1f pick6 eq 4 then 
run BOMAJOR. in brdrpts.apx 
Guat ‘to fescord cmd 

enda 

1f Dues eq peraten 
run BOMINOR in brdrpts.apx 
guit to restbrd.cmd 

endie 

1£f pick6 eq 6 then 
run SMBOATRP in brdrpts.apx 
GUIS LOmLestond. cid 

endite 

1f pick6 eq 7 then 
run DAYNIGHT in brdrpts.apx 
quit to restbrd.cmd 

endif 

1f pick6 eq 8 then 
uate EO ccsenpes.cma 

endif 

quit to restbrd.cmd 

réetumn 


- 
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Smenu 

brd_menu 

column SARELTIS --- BOARDING REPORTS 

VIOLATION/UNSAFE CONDITION FREQUENCY 

BOARDINGS SUMMARY LISTING 

CME DECALS: ANALYSIS OF VESSELS BOARDED 

LARGE SCALE AREA BOARDING LOCATION ANALYSIS 

SMALL SCALE AND COASTLINE AREA BOARDING LOCATION ANALYSIS 
SMALL BOAT OPERATIONS AREA BOARDING LOCATION ANALYSIS 
TIME OF DAY BOARDING CASE ANALYSIS 

RETURN TO REPORTS MENU 

*( end ) 


SCOMMAND 


VIOLFRE | 
GEORGE IEG G SGI OOOO IOI IIT I TTT TI TR II RAR ARIK IIR RIK RRR KIT 


Program: Violation / Unsafe Condition Frequency Analysis 
Author: | J 0 Allen and HR Lang 

Dawe Written: August 1987 —— . 
Description: This program performs a statistical analysis 


of boarding violations and unsafe conditions 
within a specified time period. 

po aang 

Erqehart, temp 

violfreq, unstfreq 

none 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


RAKKKKKAKKRRKKKKKKKKKRKKKKAKKRKKKRERKKKAKRKKKAKAKEKKKRKKKKAKERKKAKKKKKKKKEEE K ) 


set mull " " 

set error messages off 

Set escape on 

set messages off 

newpage 

clear all variables » a . , 

Write "This module performs a statistical analysis of boarding " at 2 1 

write "violations and unsafe conditions within a specified " at 3 l 

write “time period." at 4 1 

set var strtdate date 

Set var enddate date 

met @rror messages on 

et var datedifr to 0 

while datediff <= 0 then 
Write "Please enter arma ag date in the form MM/DD/YYYY:" at 6 1 
MeeriteStrtdate using ' " at 6 53 
Wiese Pieease enter ending date in the form MM/DD/YYY¥:" at 6 1 
filiaa €nddate ueing "' " at 8 53 . 
sét var datediff to .enddate - .strtdate 

endwhile 

Set error messages off . . 

project trqchart from boarding using bono vi0154 viol55 viol56 viol57 + 
v10158 viol59 viol60 viol6l violo2 viol63 viol64 viol65 viol66 + 
v10l167 viol68 uns69 uns70 uns71 uns72 uns73 uns74 uns75 uns76 + 
Uns77 Uns7S uns/79 where bodate g@ »strtdate and bodate le .enddate 


compute 
compute 
compute 
compute 
compute 
compute 
compute 
compute 
compute 
compute 
compute 
compute 


v10154s 
Vio0lS5s 
viol56s 
viol57s 
viol58s 
v10159s 
viol60s 
viol6éls 
viol62s 
viol63s 
viol64s 
viol65s 


count 
count 
count 
count 
count 
count 
count 
count 
count 
count 
count 
eount 


viols4 
V1loO15 
v10156 
ViolS/ 
v10158 
v1io0l159 
v10160 
v1iol6l 
viol62 
V1l0lceS 
vio0l64 
viol65 


from 
from 
from 
from 
from 
from 
from 
from 
from 
from 
from 
from 
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Eegenart 
frqchart 
frachart 
Erqcmart 
frqchart 
frqchart 
frqchart 
frqchart 
frqchart 
Erqchart 
frqchart 
frqchart 


where 
where 
where 
where 
where 
where 
where 
where 
where 
where 
where 
where 


v1i0154 
viol55 
v10156 
vio0157 
v10158 
viol59 
v10160 
viol6l 
v1i0162 
v10163 
viol64 
vio0l65 


@x1Sts 
exists 
exists 
exists 
exists 
CGLS TS 
exists 
exists 
exists 
Ex1Sts 
exists 
exists 


compute viol66s as count viol66 from frqchart where viol66 exists 
compute viol67s as count viol67 from frqchart where viol67 exists 
compute viol68s as count viol68 from frqchart where viol68 exists 
| coupes total violations 


set var vto o .vi0l54s + .viol55s 
set var vtot2 to .viol56s + .viol57s 
set var vtot3 to .viol58s + .viol59s 
set var vtot4 to .viol60s + .viol6ls 
set var vtot5 to .viol62s + .viol63s 
set var vtot6 to .viol64s + .viol65s 
set var vtot7 to .viol66s + .v10l167s 
set var vtot8 to .vtotl + .viol68s 
set var vtot9 to .VeEQEZur me Veoes 
set var vtotlO to .vtot4 + .vtots 
set var vtotll to .vtot6 + .vtot?7 
set var vtotl2 to .vtot8 + .vtotg 
set var vtotl3 to .vtotlO + .vtotll 
sé Varn VtOval CO .VEOrIZ eae. toi 
compute uns69s as count uns69 from frqchart where uns69 exists 
compute uns70s as count uns70 from frqchart where uns70 exists 
compute uns71ls as count uns71l from fraqchart where uns71 exists 
compute uns72s as count uns72 from frqchart where uns72 exists 
compute uns73s as count uns73 from frqchart where uns73 exists 
compute uns74s as count uns74 from frqchart where uns74 exists 
compute uns75s as count uns75 from frqchart where uns75 exists 
compute uns76s as count uns76 from f£rqchart where uns76 exists 
compute uns77s as count uns77 from frqchart where uns77 exists 
compute uns78s as count uns78 from frqchart where uns78 exists 
compute uns79s as count uns79 from frqchart where uns79 exists 
x(computing total unsafe conditions) 
set var unstotl to .uns69s + .uns70s 
set var unstot2 to .uns7ls + .uns72s 
set var unstot3 to .uns73s + .uns74s 
set var unstot4 to .uns75s + .uns76s 
set var unstot5 to .uns77s + .unstotl 
set var unstot6 to .unmstotZ + .unstots 
set var unstot7 to .unstot4 + .unstots 
set var unstotal to .unstot6 + .unstot?7 ogi 
compute totbrds as count bono from frqchart where bono exists 
set var viol54s real 
set var viol55s real 
set var viol56s real 
set var viol57s real 
set var viol58s real 
set var viol59s real 
set var viol60s real 
set var viol6éls real 
set var viol62s real 
set var viol63s real 
set var viol64s real 
set var viol65s real 
S@e van VidlLoos meal 
set var viol67s real 
set var viol68s real 
set var uns69s real 
set var uns70s real 
set var uns71s real 
set var uns72s real 
set var uns73s real 
set var uns74s real 
set var uns75s real 
set var uns76s real 
set var uns77s real 
set var uns78s real 
set var uns79s real 
set var totbrds real 
* (computing Repcelite es based on total boardings) 
set var pct54tmp to .violS4s / .totbrds 


var pet54 to .pct54tmp x 100.0 
var pct55tmp €o .violsss / . covumes 
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Beever pets5 to .pctSStmp x 100.0 

set var pct56tmp to .violdés / .totbrds 
set var pct56 to -pet56tm x 

set var pct57tmp to .viold7s j _totbrds 
set var pct57 to -pet57tm x 100.0 
Setevar petsStmp to .viol5&s / .totbrds 
set var pct58 to -petS8tm x 100.0 

set var pct59tmp to .viol59s / .totbrds 
Set Mar pct59 to -pet59tmp x 100.0 

set var pct60tmp to .viol60s j stotprds 
set var pct60 to -pet60tmp x 100.0 

set var pct6ltmp to .viol6éls / . totbrds 
set var pct6l to -pet6éltmp x 100.0 

set var pct62tmp to .viol62s / .totbrds 
set var pct62 to -pet62tmp x 100.0 

set var pct63tmp to .viol63s / .totbrds 
set var pct63 to -pet63tmp Peo". O 

set var pct64tmp to .viol64s / .totbrds 
set var pct64 to -pete4tmp m0100..0 

meu var pct65tmp to .viol65s / .totbrds 
set var pct65 to -pet65tmp x 100.0 

set var pct66tmp to .viol6ts / .totbrds 
set var pct66 to -pet66 tmp x 100.0 
Bemevar pcté/tmp to .violo7s / .totbrds 
set var pct67 to -pete7tmp = 100.0 

set var petéstmp fo .vicWeds / .totbrds 
set var pct6é to /peteatmp x 100.0 

set var pct6é9tmp to .uns69s / .totbrds 
get var pct69 to -petegtmp x 100.0 

set var pct7Otmp to .uns70s / .totbrds 
set var pct70 to -pet70tmp x 100.0 

set var pet71tmp. to .uns71s / ada 
set var pct/7l1 to pet7itmp x sr 1 00. 

Set war pct72tmp to .uns72s totbrds 
set var pct72Z to eet ae x ae 0 

Set var pct/3tmp to .uns73s / .totbrds 
set var pct/73 to -pet73tmp x 100.0 

set var pct74tmp to .uns74s / meee cs 
Seema pct74 to pet7atnp x ee LUer. 

set var pct75tmp to .uns75s totbrds 
set var pct75 to Perens”) x 160. 

set var pct76tmp to .uns76s cotbe ll 
set var pct/6 to perio x 16600 

set var pct77tmp to .uns7/s / poeaee 
set var pct77 to ora x 100. 

eect Var pct/8tmp t uns78s we 
set var pct/8 to ee soe / x ‘160°0 

set var pct79tmp t uns79s Eotprds 
met Yer pct79 to .pct/9tmp x 160° 0 

set var viol54s integer 

Set var viol55s integer 

get var viol56és iunteger 

me ver Vi0ol5/e integer 

Set Var viol58s integer 

set var viol59s integer 

mee Var Vi0l60s integer 

Bee Var Viol6ls” integer 

set var viol62s integer 

set var viol63s integer 

set var viol6é4s integer 

set var vaol6é5s integer 

set var viol66s integer 

wet Var viol6é/6 integer 

set var viol68s integer 

set var uns69s integer 

set var uns70s integer 

sét var uns7ls integer 

set var uns72s integer 

set var uns73s integer 

set var uns74s integer 


349 





set var uns75s integer 

set var uns76s integer 

set var uns77s integer 

set var uns78s integer 

set var uns79s integer 

set var totbrds integer 

remove temp | — 
*(creating temporary table for printing purposes) 

newpage 

define 

attributes 

pgcount integer 

relations 

temp with pgcount 

end 


load temp 

end 

newpage: 

write "Preparing reports........" 
output printer with violfreq.rpt 
newpage 

print violfreq 

neweade 

output printer With unsfréq.rpt 
print unsfreq 

none 

output screen 

remove frqchart 

remove temp 


newpage - 
oleae variables = 
return 
*( end ) 
S$ COMMAND 
BOARDING 
(KAR AKKRAKAKAKKKRKKKAKKAKKKKKKKKKKKAKKKKAAK KKK KK AKKRRKKRKKKAKKKRKERKKEK 
Program: Boarding Summary Listing Program 
Author: . J D Allen and H R Lang 
Pate Whitten August 1987 —_ 
Description: This program performs a listing of the 


BOARDING table during a specified time 
erlod. The repert is somted by date 
efore being printed. 


Tables Used: boarding 
Temp Tables: bosum 
Reports Used: boarding 
Forms Used: none 


KKEKKKKKKKRKRKKRKRKKKRKRRKRKRKKKKKRKRKRKRKKKKRKRKKKRKKKKRKKKRKKKKRKKKRKRKRKKRRRKKRKRKKRRRRRKKK ) 


set nud lal! 

set error messages off 

SEC €Seapewon 

set messages off 

newpage 

clear all vamiabiles 

write "This program will dump all information on boardings " at 3 l 
WE te aoe selected based on boarding date. If you wish to + 
print" a 

Write "out the entire database of boardings, please enter the date " + 


at 5 l 
GO eee for the starting date and todays date for the " + 
a 


write "ending Cat@.scsateacecescocec000 066 6s 6 0 6 6 « 0 ereyentinenynne cnn + 
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ae Tel 

set var strtdate date 

set var enddate date 

set var datediff to 0 

set error messages on 

while datediff <= 0 then . 
mete "Please enter eee date in the form MM/DD/YYYY:" at 9 1 
Mrilin strtdate using " " at 9 53 
write "Please enter ending date in the form MM/DD/YYYY:" at 11 1 


Bellin enddate using " " at 11 53 
weet var datediff to .enddate - .strtdate 
endwhile 


set error messages off 
remove bosum 
newpage 
paepect bosum from Rome using all sorted by bodate where + 
odate >= .strtdate and bodate <= .enddate 
compute numrows as rows from bosum 
Pim NOW preparing report......... ss ate LL 1 
1f numrows fails or numrows = 0 then 
Write "No records match date selection criteria" at 10 10 
Write "Please press any key to continue" at 16 10 
pause 
élge 
output printer with boarding.rpt 
newoage sy. 
print boarding 
eee 
GWwEput screen 
endif 
remove bosum 
newpage 
Clear all variables 
return 
k( end ) 


a 


S$ COMMAND 
BOMAJOR 
K (RRKKAKKKAKKKKRKKKKAKKKKKER KKK KEKEKKKERKKKKE KARE RRR KR KKK KKK KARE 


Program: Boarding Major’ Grid Area Frequency Program 

Author: | .J D Allen and H R Lang 

Date Written: August 1987 a 

Description: This program performs a statistical analysis 
of Boardings to determine percentage of cases 
which occur in areas specified by coordinates 
found in the MAJAREA table during a specified 
time period. 


Tables Used: majarea, boarding 
hemp Tables: bosum, positfrgq 
Reports Used: bomajor 

Forms Used: none 


KRAAAKKKAKKKKKAKKRKKKAKKKKKKKKKAKAKKKKKAKKRKAAKKKRKAKAKKRKKKAKAKKAKKKAKAKKAKKKKAKAKAKAKAKKEK ) 


set null " " 

set error messages off 

set escape on 

set messages off 

newpage 

Clear all variables : oe | ; 

oe thee module performs a statistical analysis of boarding " + 

a 

Se (osettepe as defined by major grid areas during a specified " + 
a 

een These major grid areas may be changed by modifying" + 
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write "the grid positions in table MAJAREA" at 5 l 
set var strtdate date 
set var enddate date 
set var datediff to 0 
set error messages on 
while datediff <= 0 then 
write "Please enter et ant ing date in the form MM/DD/YYYY:'" at 8 1 
fillin stredatemusing ew aque oe 
write "Please enter ending date in the formemy DD aa eae 
fillin enddate using '" " at 10 51 
set var datediff to .enddatewesoeneadee 
endwhile 
set error messages off 
remove peer ould 
remove bosum 
newpage 
set var northtst real 
set var southtst real 
set var westtst real 
set var easttst real 
set var gridcnt Mmitecer | — 
project positfrq from majarea using all sorted by majgrid 
expand positfrq with freqent integer 
expand positfrq with gridpct real . 
newpage 7 
wri . te program will take several minutes to process the report." + 
at l 
Wette “Pleacembe Patient. <-ir- a cies el cee 
paovect bosum from peandiag using bono obslat obslong where + 
odate ge .strtdate and bodate le .enddate 
compute totbrds as count bono from bosum 
set var gridpct real 
set var temppct real a. 
set pointer #1 grid for positfrq 
while grid eq 0 then | 
set var northtst to majnorth in #1 
set var southtst to majsouth in #1 
set var easttst to majeast in #1 
set var westtst to majwest in #1 
compute grident as count bono from bosum where obslat < .northtst + 
and obslat >= .southtst and obslong < .westtst and + 
obslong >= .easttst | 
change freqent to .grident in #1 
set var compet to .gridente, .totbads 


if temppct fails then 
set var temppct to 0.0 
endif 


assign gridpct to .temppct x 100.0 in #1 
next #1 grid 7 

endwhile- 

Set Var inagea Integer 

Set Var Cleared antecer 

set var inpct real 

set var outpct real 

compute inarea as sum freqent from positfrq 

set var outarea to .totbrds = .inarea 

set var ane to .inarea / .totbrds 

set var outpct to .outarea / .totbrds 

set var mt to .inpet 2 LOGO 

Set Var OUEbDee to ,OUEpeEEx Four 

newpage 

write "Processing report information has been completed." at 3 1 

write "Now Prepare report....ee- soo cruel tae 

output printer with bomajor.rpt 

newpage 

print bomajor 

pes 

output terminal 

remove positfrq 

remove bosum 
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newpage 
Be ie ali variables 


return 

*( end ) 

$ COMMAND 

BOMINOR 

K ( KAKKKAKKAKARAKAKKAKKAKRKAKKAKKKKAKAKKAKKKKAKAKAKKKKAKKAK ERK KAKKKKKRAKARRK A 
Program: Boarding Minor Grid Area Frequency Program 
Author: | J D Allen, ameenerR Lang 
DaweeWritten: August 1987 Pe 
Deseription: This program ome Cains a statistical analysis 

of Boardings to determine percentage of 


cases which occur in a specified location 
defined in) tae MINAREA table during 4a 
specified time period. 


Tables Used: boarding, minarea 
Temp Tables: bosum, positfrq 
Reports Used: | bominor 

Forms Used: none 


KRAKAKKKRKKKKKKKAKAKAKAKAKAKARKKRKKRKKRKKEKRKAKARKAKAKAKAKAERARREARRAKKRKRRRRERARAKRKRRARKRRAKRRKKAK ) 


pecenun)] "| 

set error messages off | 

semeescape on § 

set messages off 

newpage 

Gteam dil variables _ 

eee, thas module performs a statistical analysis of boarding " + 

ae 

—a oo as defined by minor grid areas during a specified " + 

anc 

Pe geod. These minor grid areas may be changed by modifying" + 

write "the grid positions in table MINAREA" at 5 l 

set var strtdate date 

Secezan enddate date 

set var datediff to 0 r 

set error messages on 

while datediff <= 0 then 
“niee 'Pligasewenter starting date in the formeMM/DD/YYYY:" at 8 1 
roan Statdatke using '' " at 8 51 
Write "Please enter ending date in the form MM/DD/YYvYY:" at 10 1 
feelin enddate using " "at 10 51 
set var datediff to .enddate - .strtdate 

endwhile 

set error messages off 

remove oo 

remove bosum 

newpage 

set var northtst real 

set var southtst real 

set var westtst real 

met var Gasttst real 

=e Yee grident integer 

project positfrq from minarea using all sorted by mingrid 

@ypand positfirg with freqcnt integer 

expand positfrq with gridpct real 

newpage 

Se a r program will take several minutes to process the report." + 

4 . 

peice 'Pleaee Be patient «ow. *..." at 11 1 

peoees™ bosum from ie | | using bono obslat obslong where + 

odate ge .strtdate and bodate le .enddate 
compute totbrds as count bono from bosum 


bo 


set var gridpct real 

set var oct rea | 

set pointer’ #1 grid for positirg 

while grid eq 0 then 
set var northtst to minnorth in #1 
set var southtst to minsouth in #1 
set var easttst to mineast in #1 
set var westtst to minwest in #1 
compute gridcnt as count bono from bosum where obslat < .northtst + 
and obslat >= .southtst and obslong < .westtst and + 
obslong >= .easttst | 
change freqcnt to .grident in #1 
set var temppct to .grident / .totbrds 
1£ temppct fails then 

set var .<temppct «ten 020 

endif | . 
assign gridpct to .temppct x 100.0 in #1 
next #1 grid 

endwhile- | 

SG Var Mwared ineeder 

See var outawea integer 


set var ee real oe 
set var ouepet real . 

compute inarea as sum freqcnt from positfrq 

set var outarea to .totbrds - .inarea 


set var unpet to .inarea / .totbrds 

Set Vam OUtDCE CO JOMcahed / ss ccUomes 

seuevar Inpet to .inpe® x 10000 

set var outpct to .ouitpct x 1OOnmd 

newpage | | 

write "Processing report infermatzonehas: been completed. "wae sm 
Write "Now preparing report.....eesee. "at 41 
output printer with bominor . 

newpage 

print bominor 

newpage : 

output terminal 

remove posuuayd 

remove bosum 

newpage 

clear all variables 

return 

*( end ) 


S COMMAND 


SMBOATRP 
KH (RAKAKARAKKAKAKKAK KKK KARR K KKK KKK KEK KKKKKEKRKEKKKK KKK RRKERKREKKKKKKKK KEKE 


Program: Boarding Small Boat Area Frequency Program 

Author: J D Allen and H R Lang 

Pace uamecen. August 1987 (<a : 

Desecripelon: This program performs a statistical analysis 
of Boardings to determine percentage of cases 
which occur in the small boat operating. as. 
defined by Coast Guard Group Monterey's 
OPLAN during a specified time period. 


Tables. Used: boarding 
Temp Tables: temp, bosum 
Reports Used: smboatrp 
Forms Used: none 


KAKEKKKEKKRERKEAREKRERERAKRKAREREAREREARERKERERERRERRRRERRERERRRRERERRERRREARRKRERERERKRE ) 


set error messages off 
SC Cpescabe man 
set messages off 


newpage 
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clear 


all variables 


remove temp 
remove bosum 


newpa 


yocLCte 


ae 2 il 


write 


ae 3il 


2 
"This module performs a statistical analysis of boarding " + 


"locations. 


This program examines the number of boardings 


my 


Write "inside and outside of the small boat operational area during " + 


ieee 5) 


at 41 


write 


"a specified time period. 


set var strtdate date 
set var enddate date 

set var datediff to 0 
set error messages on 


While datediff <= 0 then 
feerce "Please enter Scam eng date in the form MM/DD/YYYY:" at 8 1 
fetiestrtdate using" " at 8 51 
Sieees Please enter ending date in the form MM/DD/YYYY:" at “10 1 
meetin enddate using " " at 10 51 
set_ var datediff to .enddate - .strtdate 

endwhile 

set error messages off 

newpage . : 

yet te pos program will take several minutes to process the report." + 

a 

fee FP ledse be patient..........' at. 11 1 

eae bosum from boarding using bono obslat obslong where + 

odate >= .strtdate and bodate <= .enddate 


compute totbrds as count bono from bosum 
Set Van inside to 0 
set war outside to 0 
set pointer #1 nl for bosum 
while nl eq 0 then 
while nl eq 0 then 
set var obslat to obslat in #1 


set var obslong 


to obslong in #1 

1f obslat < 36.100 then 
set var outside to..outside 
break 

endaf , 

1f obslong < 121.40 then 
set var outside to .outside 
break 

Gr 

1f obslat >= 36.100 and obslat 

and obslong <= 122.200 then 
set var inside to .inside + 
break 

endif 

if obslat >= 36.180 and obslat 

and obslong <= 122.250 then 
set var inside to .inside + 
brea 

endif 

if obslat >= 36.370 and obslat 

and obslong <= 122.300 then 
set var inside to .inside + 
break 

endif 

1f obslat >= 36.480 and obslat 

and obslong <= 122.350 then 
set var inside to .inside + 
break 

endif 

1f obslat >= 36.530 and obslat 

and obslong <= 122.400 then 
set var inside to .inside + 
break 

endif 


Io0 


+ ] 


36 


36 


ub 


36. 


ab . 


B36. 


180 


370 


480 


530 


570 


and 


and 


and 


and 


and 


obslong 


obslong 


obslong 


obslong 


obslong 


Ze 


Lae 


faded 


Lai 


d21 


400 + 


400 + 


400 + 


400 + 


400 + 


1f obslat >= 36.570 and obslat <= 37.000 and obslong >= 121.400 + 
and obslong <= 122.450 then 
set var inside to .inside + 1 


break 
endif 


1f obslat >= 37.000 and obslat <= 37.050 and obslong >= 121.400 + 
and obslong <= 122.450 then 
set var inside to .inside + 1 


break 
endif 


1f obslat >= 37.050 and obslat <= 37.100 and obslong >= 121.400 + 
and obslong <= 122.300 then 
set var inside to .inside + l 


break 
endif 


set var outside to .outside + 1 


brea 

endwhile 

next #1 nl 
endwhile 
newpage 
define 
attributes 
one CereerZ 
relations 
temp with tmp 
end 
load temp 

nyt 


end 


write "Processing report information has been completed." at 3 1 
write. "Now pee aaS POR Or Ciriani oo oes "at 41 


output prin 
newpage 
print smboatrp 
newpage 

atone terminal 
remove temp 
remove bosum 
newpage 


8 varlables 


return 
*{ end ) 


SCOMMAND 
CMBRED 


er with smboatrp.rpt 


HR ( AARAKKAAAKKKKKKKKKKKKKKAKA KKK KAA KKK RK KAA KRKKRRKAKAKK RRA AKA RK RRAAKAARRRKRAKK 


Program: 


Author: | 
Dake Written: 
Desérmig-ton: 


Tables Used: 
Temp Tables: 
Reports Used: 
Forms Used: 


Courtesy Motorboat Examinations (CME's) 
Statistical Analysis 

J D Allen and H R Lang 

August) £3c7/ wal a 
This program performs a statistical analysis 
of vesseis that were Dearded to jdeterminms 
the’ frequency of “GMEUs atid their =yeanece 
issue during a specified time™period. 
boarding, vessel 

bosum, vslsum, bovslsum, temp 

emerpt 

none 


RAAKKAAKKKKKKKKKKKKKAKKRKKAKKRKKKKKKAAKAKAKKKRRKK KKK AKAKKAKRRKRK KAKA AKRRRRRKRRK ) 


set error messages off 


set escape on 
set messages off 


newpage 
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clear all variables = 
wy tee'Thas Gomer will peers Statwetical reports on!’ sat 3 1 
write "vessels that were boarded during a specified time with" at 4 1 
poe, USCG Auxiliary Courtesy Motorboat Examinations CMEs Decals" + 
at 
set var strtdate date 
set var enddate date 
set var datediff to 0 
set error messages on 
while datediff <= 0 then 
pase "Please enter gtaning deer ne the. Gorge MM/DD/YYYY:'t at 8 1 
Bmein Strtdate using " " at 8.53 
Geeeer Fiease enter ending date_in the form MM/DD/YYYY:" at To 1 
Beer enddate using " " at 10 53 
set var datediff to .enddate - .strtdate 
endwhile 
set error messages off 
remove bosum 
remove vslsum 
remove bovslsum 
newpage 
sg bosum from posncing using bono bovhin where + 
Semec Ge Sstrtdate and bodate le .enddate 
peoject vsisum from vessel usitag IES 8 AS FES vslhin 
eet bosum using bovhin with vslsum using vslhin forming bovslsum + 
where eq 
compute totbrds as count bono from bovslsum 
compute cmecount as count cmedecal from bovslsum where cmedecal = Y 
if cmecount >= 1 and totbrds >= 1 then 





compute before70 as count cmedecal from bovslisum where cmedecal = Y 
and cmeyear <= 1970 
compute yr71lto75 as count cmedecal from bovslsum where cmedecal = Y 
and cmeyear >= 1971 and cmeyear <= 1975 
compute yr76to79 as count cmedecal from bovslsum where cmedecal = Y 
and cmeyear >= 1976 and cmeyear <= 1979 
compute yr80to8l as count cmedecal from bovslsum where cmedecal = Y 
and cmeyear >= 1980 and cmeyear <= 191 
compute yr82to83 as count cmedecal from bovslsum where cmedecal = Y 
and cmeyear >= 1982 and cmeyear <= 1983 
compute yr84to85 as count cmedecal from bovslsum where cmedecal =.Y 
and cmeyear >= 1984 and cmeyear <= 1985 
compute yr86to87 as count cmedecal from bovslsum where cmedecal = Y 
and cmeyear >= 1986 and cmeyear <= 1987 
compute yr88to89 as count cmedecal from bovslsum where cmedecal = Y 
and cmeyear >= 1988 and cmeyear <= 1989 
compute after90 as count cmedecal from bovslsum where cmedecal = Y + 
and cmeyear >= 1990 
set var pctlt70 real 
set var pct7175 real 
set var pct7679 real 
set var pct8081 real 
set var pct8283 real 
set var pct8485 real 
set var pct8687 real 
set var pct888&9 real 
set var pctgt90 real 
if totbrds fails or totbrds = 0 then 
Seeevat tOtbrds to 1 
endif 
set var pctlt70 to .before70 / .totbrds 
S80 ver pet7175 "to .yr71lto75 / .totbrds 
St var pe@t7679 to .yr7oto79 / .totbrds 
set var pct8081 to .yr80to81l / .totbrds 
Wat Var wcts283 to .yr82to83 / .totbrds 
set var pct8485 to .yr84to85 / .totbrds 
OG var pcts6s7 to .yrs6tos7 /...totbrdse 
pat var pctS8so to wyr88tos9 / .totbrde 
s@t var pctgt90 to .after90 / .totbrds 
set var vpct70 real 
set var voct71 real 
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+ + + + + + + 


set var vpct76 real 

set var vpct80 real 

set var vpct82 real 

set var vpct84 real 

set var vpct86 real 

set var vpct88& real 

set var vpct90 real 

1f cmecount = 0 or cmecount fails then 

set var cmecount to 1 
endif 


set var vpct70 to .before70 / .cmecount 
set var vpct71 to .yr71to75 / .cmecount 
set var vpct76 to .yr76to79 / .cmecount 
set var vpct80 to .yr80to81 / .cmecount 
set var vpct82 to .yr82to83 / .cmecount 
set var vpct84 to .yr84to85 / .cmecount 
set var vpct86 to .yr86to87 / .cmecount | 
set var vpct88 to .yr88to89 / .cmecount 


set var vpct90 to .after90 / .cmecount 
set var pctcme real 
set var pctcme to .cmecount / .totbrds 
rena. .caecent 
newpage alin 
write "Processing of statistical information completed." at 20mm 
write "Now preparimg FrepOrt 0. i. cece ec epee 
*(creating temporary relation for printing purposes) 
define 
attributes 
eu esc a2 
relations 
temp with tmp 
end 
load temp 
WRK 
end | 
output printer with cmerpt.rpt 
newpage 
print cmerpt 
Beueede 
output screen 
else 
newpage | 
write "No records match your Seléctlonscri cer wa gaat 0m 
write "Please press any Key to continue" at 15 
pause 
newpage 
endif ? 
remove bosum 
remove vslsum 
remove bovslsum 


remove temp | 

clear all variables 

Petia 

*( end ) 

S COMMAND 

DAYNIGHT 

 ( RAKKKKAKKKKKAKKKKER KK KKRRKKKAKAK KK KKK KKK AK ARAKKRK KKK KKK RK AKER KKK RKK 
Program: Daytime vs. Nighttime Frequency Analysis 
Author: | J D Allen and H R Lang 
Dace wie ten: August 1987 _ 
DesGrig con: This pt ogeen performs a statistical analysis 

of SAR cases and Boardings to determine 


percentage of cases which occur in the |. 
daytime vs those that occur at night during 
a specified time period. 

Tables Used: sar, boarding 
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Temp Tables: sarsum, bosum, temp 
Reports Used: daynight 
Forms Used: none 


KRARKEKKKKAKAKKKAKAKKAKKAKAAKKKARKAKAKKAKAKAKKKAKKAKKAKKAKKAKAKAKKAKKKKAKKAKRKAKAKKAAKAKKKKAKRAARKAKEKA ) 


Pecenull 4 
set error messages off 
set escape on 
set messages off 
clear all variables 
remove sarsum 
newpage aun ; 
Sees This program performs a statistical analysis of Search &" at 2 1 
eee, Soscue cases and Boardings to determine the percentage of " + 
a 
peice "cases which occurred during the day and at night during a " + 
a 
Write "specified time period. " at 5 1 
set var strtdate date 
set var enddate date 
set var datediff to 0 
set error messages on 
while datediff <= 0 then 
write "Please enter ae aa nee inthe format, DD/wyyy:'" at 8 1 


meerin strtdate using " " a 
eee © Lease enter ending date in the form ’MM/DD/YYYY:" at 10 1 
meen eenddate using " " at 10 51 : 
peeevar datediff to .enddate - .strtdate 
endwhile 


Seceeuror messages off | . 

project sarsum from sar sang ssunrise ssunset sartime sardate where + 
sardate >= .strtdate and sardate <= .enddate and ssunrise exists and + 
Eantime €xists | 

compute daysar as count sartime from sarsum where sartime gea + 
ssunrise and sartime lta ssunset 

compute nitesar as count sartime from sarsum where sartime lta + - 
Seunrise Or sartime gea ssunset. 

eee ar COtSars to .daysar + .nitesar 

Set Yar pctdays real 

set var pctnites real 

set var pctdays to .daysar / .totsars 

set var pctnites to .nitesar / .totsars 

set var pctdays to .pctdays x 100.0 

Set var pctnites to .pctnites x 100.0 

remove sarsum 

remove bosum 


newpage 


peoaect bosum from pgardi ng using bsunset bsunrise botime bodate where + 
odate >= .strtdate and bodate <= .enddate and bsunrise exists and + 
botime exists 

compute daybrd as count botime from bosum where botime gea bsunrise*+ 
and botime lta bsunset 

compute nitebrd as count botime from bosum where botime lta bsunrise + 
or botime gea bsunset . 

set var totbrds to .daybrd + .nitebrd 

eet var pctdayb real 

set var pctniteb real 

set var pctdayb to .daybrd / .totbrds 

S€t var pctniteb to .nitebrd / .totbrds 

set var pctdayb to .pctdayb x 100.0 

S®t var petniteb to .pctniteb x 100.0 

remove bosum 

remove temp 


newpage 
fet int 
attributes 


ae Cext 2 
relations 


S52 


fete with tmp 


load temp 
Wy 
end 
newpage 
write "Preparing report.., - 
output printer with daynight. Beis 
newpage 
print daynight 
newee ge 
OUTPUT Screen 
remove sarsum 
remove bosum 
remove temp 
newpage 
rerum 
*x( end ) 
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APPENDIX L 
SARRPTS SOURCE CODE 


SCOMMAND 


SAR_MAIN 
KR  RRRARKRAKAKKAKKRKAKKA KK KKK KK KK KKK KKK RRR RRR RRR RRR RRR RK RRR KKK KKK RRA 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


SAR REPORTS MENU and APPLICATION PROGRAMS 


Author: DOnmoemalten, LT, USCG 
Heidi R. Lang, LT, USN 
AUGUST 1987 


RAKKAKKKKARKKRKK KR KKRKKRKKK RAK KKK KKK KKK AKKKRARKKAKKAKRAKKKKRKKARKKRKAKKK RR ) 


Setsenrousmessages off 
set messages ofr 
feceeeeape off 
cledr all variables 
newpage | 
Setar pick7 integer 
choose pick7 from sar_menu in sarrpts.apx 
meeprek? @€q 0 then 
Gee to restsar.cmd 
eridi £ 
faerie. eq 1 then 
run IMMEDSAR in sarrpts.apx 
fuec to) restsar.cmd 
endif 
aepuen?, €q 2 then 
run SARMINOR in sarrpts.apx 
Suee CO .restsar.cmd 
endif : 
[meron eq 3 then 
run SARMAJOR in sarrpts.apx 
gurt to restsar.cmd 
endif 
1f pick7 eq 4 then 
run SARSMBT in sarrpts.apx 
gure to restsar.cmd 
Silent 
1f pick? eq 5 then 
run SARDUMP in sarrpts.apx 
quit to restsar.cmd 


endas 
Tt wlek7 eq 6 then 
run SARTIMES in sarrpts.apx 


quit to restsar.cmd 

enult 

teepeen; “6éq 7 then 
run SARDAY in sarrpts.apx 
Qua to restsar.cind 

endif 

1f pick? eq 8 then 
run DAYNIGHT in sarrpts.apx 
guit to restsar.cmd 

endif 

1f pick7 eq 9 then 
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quit to restrpts.cmd 
enaar 
quit to restsar.cmd 
return 
Smenu 
sar_menu 
column SARELTIS --- SAR REPORTS 
ANALYSIS OF IMMEDIATE DISTRESS SAR CASES 
MINOR AREA aan fap is} LOCATION ANALYSIS 
MAJOR AREA (MAJAREA table) LOCATION ANALYSIS 
INSIDE/OUTSIDE SMALL BOAT OPAREA LOCATION ANALYSIS 
SAR TABLE SUMMARY LISTING 
SAR UNIT TIME EXPENDED DURING SAR CASES 
DAY OF THE WEEK, MONTH, AND YEAR ANALYSIS 
SAR CASE ANALYSIS: DAYTIME/NIGHTTIME FREQUENCY 
RETURN TO REPORTS MENU 
*( end ) 


$ COMMAND 


SARMAJOR . 
HK (AKAKKKKRKRKKKRKKKRKAKAKKAKKRKKAKAKKARKRKKKAAKA RA RKKRA AKA RRKKKAKAAKKRRKKAAKARRKKKKRKK 


Program: SAR Meier Grid Area Frequency Analysis 

Author: J D Allen and H R Lang 

Paterna ceen. August 1987 _ 

Description: This ercgaam erforms a statistical analysis 
of SAR cases to determine percentage of 


cases which occur in specified locations in 
the table MAJAREA during a specified time 
period. 


Tables Used: majarea, sar 
Temp Tables: sarsum, positfirgq 
Reports Used: sarmajor 

Forms Used: none 


RKKRKAAKRKKRRKKKRKKAKRKKKKRKARKKKKRKAKRKKKRKRKRKKRKKARKKKRKKKKAKRKKKKRKKEKE ) 


Setanta! 
set error mes sage off 
set messages of 
SG tweccaperon 
newpage | 
clean al evartapies ae , 
write "This module performs a statistical analysis of SAR case ™“ /acua 
Wea te , oocauaens as defined by major grid areas during a specified " + 
a 
WED pe Renloe. These major grid areas may be changed by modifying" + 
write "the grid positions in table MAJAREA" at 5 l 
set var strtdate date 
set var enddate date 
set var datediff to 0 
set error messages on 
while datediff <= 0 then | 
write "Please enter starting date in the form MM/DD/YYYY:" at 8 1 
fillin strtdate usang |e deseo 
write 'Please enter ending date in the form MM/DD/YYYY:" at 10 1 


fillin enddate using " " at 10 51 
set var dateditt to Sendcaees emo cmed ae 
endwhile 


set error messages off 
remove positfirg 

remove sarsum 

newpage 

set var northtst real 
set var southtst real 

set var westtst real 
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set ve easttst real 

Betivar QGridcnt integer — — 
project positfrq from majarea using all sorted by majgrid 
@xpand positfirq with freqent integer 

expand positfrgq with gridpct real 


newpage 
write "This program will take several minutes to process the report." + 
a 
fee "Please be patient.......... te onteee lade. 1 
moet sarsum from sar Beeng folderno sarlat sarlong where + 
Sardate ge .strtdate and sardate le .enddate 
compute totsars as count folderno from sarsum 
compute numrows as rows from sarsum 
set var gridpct real 
fe Var temppct real 
Saeepointver #1 grid for positfrq 
While grid eq 0 then | 
set var northtst to majnorth in #1 
set var southtst to majsouth in #1 
set var easttst to majeast in #1 
set var westtst to majwest in #1 
compute gridcnt as count folderno from sarsum where + 
sarlat < .northtst and sarlat >= .southtst and sarlong < .westtst + 
and sarlong >= .easttst 
change freqcnt to .grident in #1 
set var pomp tO sgiGlGent wer. COtSars 
a 


if temppct fails then 
eee Var temppct to 0.0 
endif 


assign gridpct to .temppct x 100.0 in #1 
Nem@e wl grid 
endwhile. 
fete anarea integer 
fever OuUtarea integer 
set var eect real 
Seed Ourpct real ; 
compute inarea as sum freqcnt from positfrq 
Setever OUCarea to .totsars - .inarea 
set var 2 ad to .inarea / .totsars 
set var outpct to .outarea / .totsars 
Setevar inpct to .inpct x 100.0 
Setevar OULDCt to .outpct x 100.0 


eeade 
write 'Processing report information has Ee OS ie StS) 
t 


[ieeeer ow preparing report..... eae. a 
if numrows fails or numrows = 0 then 
newpage 


write "No records exist in the database matching your selection + 
Goteemea at 10 1 
write 'Please press any key to return to menu" at 16 10 
pause 
eroe ; 
output printer with sarmajor.rpt 
newpage 
print sarmajor 
nena 
output terminal 
endi 
remove positfrq 
remove sarsum 
newpage 
eae” al) variables 
recurn 
*( end ) 


$ COMMAND 


SARMINOR 
K (AKKAKRAKKAKKAAKKKAKKAK KKK KKK KKK KKK KKK KKK KKKKAKKAKKAK KKK KAAKKAKKAKKERKAKAKK A 
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Program: SAR Minor Grid Area Frequency Analysis 


Author: J D Allen and H R Lang 

Date Written: August 1987 a. 

Description: This pregueat erforms a statistical analysis 
of SAR cases to determine. percéntage. of 


cases which occur in locations specified by 
coordinates contained in the table MINAREA 
during a Sp@cirtedetim@ period: 


Tables Used: sar, minarea 
Temp Tables: Ssarsum, positfrq 
Reports Used: sarminor 

Forms Used: none 


RAKKKKRRKKKKKKAKKKK KKK AKAKEKKKRKKAKKKKAKKKAK AKA RKKAKRKKERKKAERKKAARKRKKKERKERE Z ) 


set null " " 
set error messages off 
set messages of 
S@t escape on 
newpage . 
Clear all variables ait 
write "This module performs a statistical analysis of SAR case‘) atuzae 
VO as defined by minor grid areas during a specified " + 
ae 
write Smee These major grid areas may be changed by modifying" + 
at 
write "the grid positions in table MINAREA" at 5 l 
set var strtdate date 
set var enddate date 
set var datediff to 0 
set error messages on 
while datediff <= 0 then 
write "Please enter starting dat@ in the form MM/DD/YYYY:" at aul 
fiiTin strtdate using """' ameasr 
write "Please enter ending date in the form MM/DD/YYYY:" at 10 1 
fillin, enddaté@ using," "She 10aer 
set var datediff to .enddate - .strtdate 
endwhile 
set error messages off 
remove positfrq 
remove sarsum 
newpage 
set var northtst real 
set var southtst real 
set var westtst real 
set var e€ascEtst real 
sete Var Gpident Uneecerms | 
project positfrq from minarea using all sorted by mingrid 
expand positfrg with freqcnitwimbeger 
expand positfrq with gridpct real 
newpage 
gett 1 bel program will take several minutes to process the report." + 
at 1 
write "Please be patient.......... Mee 
project sarsum from sar using folderno sarlat sarlong where + 
Sardate ge .strtdate and sardate le .enddate 
compute totsars as count folderno from sarsum 
compute numrows as rows from sarsum 
set var gridpct real 
set var Sete mer) 
set pointer +l. grid for pesmting 
while grid eq 0 then 
set var northtst to minnorth in #1 
set var southtst to minsouth in #1 
set var easttst to mineast in #1 
set var westtst to minwest in #1 
compute grident as count folderno from sarsum where + 
sarlat < .northtst and sarlat >= .southtst and sarlong < .westtst + 
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and sarlong >= .easttst 
‘change freqent to .grident in #1 
set var temppct to .gridcent / .totsars 
if temppct fails then 
set var temppct to 0.0 
endif . 
assign gridpct to .temppct x 100.0 in #1 
next #1 grid 
endwhile 
Semevar inarea integer 
@euevar OlUtarea integér 
set var inpct real 
Bee Yar outpct real 
compute inarea as sum freqcent from positfrq 
Sec Var os alae to .totsars - .inarea 
set var zapct to .inarea / .totsars 
meevar Olitpct to .outarea /_.totsars 
set var inpct to .inpct x 100.0 
eeemvar OUtpct to .outpct x 100.0 


newpage 

write 'Processing report information has been completed." at 3 1 
Write Now preparing report..........-. "at 41 

1f numrows fails or numrows = 0 then 


newpage 

write "No records exist in the database matching your selection + 
criteria" at 10 1 

write "Please press any key to return to ee at 16 10 


output printer with sarminor.rpt 
newpage 
print sarminor 
Beene 
output terminal 
endif 
remove positfrq 
remove sarsum 


newpage 


clear all variables 

Berurn 

*( end ) 

S$ COMMAND 

SARSMBT 

HR ( KRRKAAKKKAKKKAKKAKKKAKKAKAKRERERARKKKKA ARERR RRRERKK AKA RARER ERERKK AKA KA 
Program: SAR Case Small Boat Area Frequency Program 
Author: | J D Allen and H R Lang 
Bpaee Written: August 1987 
Description: This peg an Ste akg a statistical analysis 

of SAR Cases to determine percentage of 


cases which occur in the small boa operating 
as defined by Coast Guard Group Monterey's 
OPLAN during a specified time period. 


Tables Used: sar 

Temp Tables: temp, sarsum 
- Reports Used: sarsmbt 

Forms Used: none 


KAKRKKRRKKARKEKRKKKKKRRKEKRK RARE KKK RARER KRKKEKKRKKAKRKEK EKER ERKRK AKER ) 


set nubl ' " 

set error messages off 
set messages of 

set escape on 

newpage 

clear all variables 
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remove temp 
remove sarsum 


newpage 


write "This module 
write "locations. 


at 3 


erforms a statistical analysis of SAR Case " at 2 1 
his program examines the number of SAR Cases + 


write "inside and outside of the small boat.operational area during " + 


at 4 


J 
write "a specified time period. 


set var 
set var 


Hae 5 ii 
strtdate date 
enddate date 


set var datediff to 0 

SCC G@RROr Messages On 

While datediff <= 0 then 
write "Please enter stab e aa aaee in the form MM/DD/YYYY:" at 3B 


fillin strtdate using 


I | 


write "Please enter ending date in the form MM/DD/YYYY:" at 10 1 


fillin enddate using 
set var datediff to 
endwhile 


MN ae eS 
.enddate - .strtdate 


set error messages off 


newpage | 
write ches program will take several minutes to process the report." + 
a 


write 'Please be patient.. 


pEOVece 
sardate 
compute 
compute 
set var 
set var 


ie eel 

Sarsum from sar veo folderno sarlat sarlong where + 
>= .strtdate and sardate <= .enddate 

totsars as count folderno from sarsum 

numrows as rows from sarsum 

inside to 0 

outside to 0 


set pointer #1 nl for sarsum 


while nl e 
while n 


QO then 
eq O then 


set var sarlat to sarlat in #1 
set var sarlong to sarlong in #1 
1f -sarlat < 36.100 then 


set var outside to .outside + 1 


break 


endif 
1f sarlong < 121.40 then 


set var outside to .outside + 1 


break 
endif . 
if sarlat >= 36.100 and sarlat <= 36.180 and sarlong >= 121.400 + 
and sarlong <= 122.200 then 
set var inside to .inside + l 
break 
endif 
if sarlat >= 36.180 and sarlat <= 36.370 and sarlong >= 121.400 + 
and sarlong <= 122.250 then 
set var inside to .inside + l 
brea 
endif 
if sarlat >= 36.370 and sarlat <= 36.480 and sarlong >= 121.400 + 
and sarlong <= 122.300 then 
set var inside to .inside + 1 
break 
endif 
if sarlat >= 36.480 and sarlat <= 36.530 and sarlong >= 121.400 + 
and sarlong <= 122.350 then 
set var inside to .inside + l 
break 
endif . 
if sarlat >= 36.530 and sarlat <= 36.570 and sarlong >= 121.400 + 
and sarlong <= 122.400 then 
set var inside to .inside + 1 
break 
endif 
if sarlat >= 36.570 and sarlat <= 37.000 and sarlong >= 121.400 + 
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and sarlong <= 122.450 then 
set var inside to .inside + l 
break 
endif 
if sarlat >= 37.000 and sarlat <=°37.050 and sarlong >= 121.400 + 
and sarlong <= 122.450 then 
set var inside to .inside + l 
break 
endif 
1f sarlat >= 37.050 and sarlat <= 37.100 and sarlong >= 121.400 + 
and sarlong <= 122.300 then 
‘set var inside to .inside + l 
Beak 
endif 
set var outside to .outside + l 
break 
endwhile 
next #1 nl 
endwhile 
set var inpcttmp real 
set var outpcttm real 
set var inpct real 
set var outpct real 
set var totsars real 
set var inside real 
Seeevae Outside real 
set var inpcttmp to .inside / .totsars 
set var Beep cen to .outsidem / ee 
set var Cito inpct tmp x 100. 
set var ai pet tem.oukpcttm m2elL00- "0 
set var totsars integer 
set var inside integer 
set var outside integer 
newpage 
define 
attributes 
CGKt 2 
elations 
temp with tmp 
end 
load temp 
WRK 
end 
voice’ Processing report information has oar completed." at 3 1 
write "Now pees ing POPOrt site. 2 as t 4 1 
Lag pe OWS fails or numrows = 0 then 


oe" "No records exist in the database matching your selection + 
prteria’ atwlO- 1 
write "Please press any key to return to menu" at 16 10 
pause | 
else , 
output printer with sarsmbt.rpt 
newpage 
print sarsmbt 
newpage . 
output terminal 
endif 
remove temp 
remove sarsum 
newpage 
clear all variables 
return 
*( end ) 


$ COMMAND 


SARTIMES 
* ( KAKAAKKKKAKAKKKKAKAKKKKAKKAAKKKKKRAKKKAKAKKKKKKAAKKKKAKRKAAKEKAKRKAKAAKRKKAKAKKKK 
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Program: SAR Case Units Time Expended Frequency 


Author: | J D Allen and H R Lang 

Date Writer: August 1987 — 

Description: This ae erforms a statistical analysis 
of SAR cases to determine total time 


expended, time to being on scene, time to 
bead alongside, time involved in searches, 
and time involved in towing. These times are 
analyzed to produce totale, avenages, 
minimums, and maximums for a specific time 


period. 
Tables Used: sarunits 
Temp Tables: sartimel, s@rtimez, sartilves) santimed: 
sartime5, temp 
Reports Used: sartimes 
Forms Used: none 


KAAKKKKKKKAKKKKKKRKREKRKKKKRKRKRKEKKKKKRKEKKKKRKKRKRKRKKRKKKKRKKKRKRKKKKRKRKKKKKKKKKKKRRE ) 


seepnull tt 

set error messages off 

sek coca 

newpage | 

clear all variables | aa 

write "This program will pertoum statuiseical peoomes on! apace 

write "SAR cases that occurred during a specified, fime,pericd.” at mam 
Write "Total sar unit time expended, time to on scene, time “cee 
Ws Es "to alongside distressed vessel, time expended in searches," + 
at 1 

write "and time engaged in Leeae will be analyzed." at 7 1 

wraNs pounce this program can take 5 to 10 minutes to run, you may” + 
at 1 

wire Bot the escape [ESC] key to exit to the RBase 5000 command" + 
ene 

ee , PEen where can either restart the menu system by typing:" + 
aie 


WEUbeun — RUN STARTUP.BIN" at 16 1 
Write "or exitting the system by typing:" at 18 1 
ae EVN “avec 1 

write "Press any key to continue " at 23 10 

pause 

newpage 


set var strtdate date 
set var enddate date 
set var datediff to 0 
set error messages on 
while datedimm <= Geren . 
write "Please enter phere eatea the form MM/DD/YYyYY:' at 10 1 


fillin strtdate using "la 
write "Please enter ending date in the form MM/DD/YYYY:" at 12 1 
fillin enddatesusingd eae ameo 
set var datedifi to .énd@ate = “strtdaare 
endwhile 


set error messages: ome 

remove sartimel 

newpage < _ 

project sartimel from sapunwees neaag uwtime uwdate ostime osdate + 
foldno where uwtime exists and uwdate exists and ostime exists and + 
osdate exists and uwdate lea osdate and uwdate >= .strtdate and + 
sutdate <= .enddate 

compute ostimes as count foldno from sartimel 

set var ossum real 

set var timehour real 

set var datehour real 

set var test real 

set var timeadd real 

set var minostim real 
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set var maxostim real 
set var ossum to 0.0 
set var minostim to 1000.0 
set var maxostim to 0.0 
| write 'Now computing sar time statistics" at 10 15 
set pointer #1 nl for sartimel 
while nl eq O then 
set var uwtime to uwtime in #1 
set var uwdate to uwdate in #1 
| set var ostime to ostime in #1 
set var osdate to osdate in #1 
if uwdate = .osdate then . 
Semeevar timedifr to .ostime - .uwtime 
set var timehour to .timediff / 3600.0 
*(converts seconds to hours) 


f set var test to .timehour 
set var ossum to .ossum + .timehour 
else 
set var datediff to .osdate - .uwdate 
set var datehour to .datediff x 24.0 
} *(converts days to hours) 
set var timediff to .ostime - .uwtime 


set var timehour to .timediff / 3600.0 
*(converts seconds to hours) 
set var timeadd to .timehour + .datehour 
Set var test to .timeadd 
set var ossum to .ossum + .timeadd 
endit 
if test <= .minostim then 
Set var minostim to .test 
endif 
if test >= .maxostim then 
set var maxostim to .Cest 


next #1 nl 
endwhile 
Bemove sartimel 
remove sartime2 
newpage ' ; . 
poses’ SantimeZ2 from sarunits “aang uwtime uwdate sutmoor sutdate + 
foldno where uwtime exists and uwdate exists and sutmoor exists and + 
sutdate exists and uwdate lea sutdate and uwdate >= .strtdate and + 
sutdate <= .enddate 
compute tottimes as count foldno from sartime2 
Bet Var totsum real 
set var mintttim real 
set var maxtttim real 
set var totsum to 0.0 
set var mintttim to 1000.0 
Set Yar inaxtttim to 0.0 
set pointer #1 nl for sartime2 
While nl eq O then 
set var uwtime to uwtime in #1 
set var uwdate to uwdate in #1 
set var sutmoor to sutmoor in #1 
set var sutdate to sutdate in #1 
if uwdate = .sutdate ‘then . 
set var timediff to .sutmoor - .uwtime 
set var timehour to .timediff / 3600.0 
*(converts seconds to hours) 
sec Var tesCto .timehour 
; set var totsum to .totsum + .timehour 
else 
setver datediff to .sutdate - .uwdate 
set var datehour to .datediff x 24.0 
*(converts days to hours) 
set var timediff to .sutmoor - .uwtime 
set var timehour to .timediff / 3600.0 
*(converts seconds to hours) 
set var timeadd to .timehour + .datehour 
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set var test to .timeadd | 
set var totsum to .totsum + .timéadd 
endif . 
if test <= .mintttim then 
set var minttCim to”. Gloag 
endif 
if test >= .maxtttim then 
set var maxtttim to .test 
emceen 
next #1 nl 
endwhile 
remove sartime2 
remove sartime3 
newpage . | | 
project sartime3 from sarunits us Tae uwtime uwdate alngtime alngdate + 
foldno where uwtime exists and uwdate exists and alngtime exists and + 
a aeaes exists and uwdate lea alngdate and uwdate >= .strtdate and + 
sutdate <= .enddate . 
compute algtimes as count foldno from sartime3 
set var algsum rea 
set var minaltim real 
set var maxaltim real 
set var algsum to 0.0 
set var minaltim to 1000.0 
set var maxaltim to 0.0 
set pointer #1 nl for sartime3 
While nl eq .0 sede 
set var uwtime to uwtime in #1 
set var uwdate to uwdate in #1 
set var algtime to alngtime in #1 
set var algdate to alngdate in #1 
if uwdate = .algdate then 
set var timediff to .algtime - .uwtime 
set var timehour to .timediff / 3600.0 
*(converts seconds to hours) 
set var test to .timehour - | 
, set var algsum to .algsum + .timehour 
else 
set var datediff to .algdate - .uwdate 
set var datehour to .datediff x 24.0 
X(converts days to hours). 
set var timediff to .algtaine =. uwesine 
set var timehour to .timediff / 3600.0 
*(converts seconds to hours) 
set var timeadd to .timehour + .datehour 
set var test to .timeadd 
set var algsum to .algsum + .timeadd 
endif ; 
if test <= .minaltim then 
set var minaltim to .test 
endif 
if test >= .maxaltim then 
set var maxaltim to .test 
endif 
next #1 nl- 
endwhile 
remove sartimé3 
remove sartime4 
newpage ; 
project sartime4 from sarunits oan ostime osdate alngtime alngdate + 
foldno where ostime exists and osdate exists and alngtime exists and + 
alngdate exists and osdate lea alngdate and uwdate >= .strtdate and + 
sutdate <= .enddate . 
compute schtimes as count foldno from sartime4 
set var schsum real 
set var minshtim real 
set var maxshtim real 
set var schsum to 0.0 
set var minshtim to 1000.0 
set var maxshtim to 0.0 
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— 


set pointer #1 nl for sartime4 
while nl eq 0 then 
set var ostime to ostime in #1 
set var osdate to osdate in #1 
set var algtime to alngtime in #1 
set var algdate to alngdate in #1 
if osdate = .algdate then . 
set var timediff to .algtime - .ostime 
set var timehour to .timediff / 3600.0 
*(converts seconds to hours) 
set var test to .timehour 
: set var schsum to .schsum + .timehour 
else 
set var datediff to .algdate - .osdate 
set var datehour to .datediff x 24.0 
*(converts days to hours) 
set var timediff to .algtime - .ostime 
set var timehour to .timediff / 3600.0 
*(converts seconds to hours) 
set var timeadd to .timehour + .datehour 
set var test to .timeadd 
set var schsum to .schsum + .timeadd 
endif 
1f test <= .minshtim then 
eaeevar Minshtim to .test 
endif | 
1f test >= .maxshtim then 
set var maxshtim to .test 


next #1 nl 
endwhile 
remove sartime4 
remove sartime5 
newpage . 
peoveet Sartimes from sarunits venod towtime towdate dvmoored dvmdate + 
foldno where towtime exists and towdate exists and dvmoored exists + 
and dvmdate exists and towdate lea dvmdate and uwdate >= .strtdate + 
and sutdate <= .enddate . 
compute towtimes as count foldno from sartime5 
sét var towsum real 
set var mintwtim real 
set var maxtwtim real 
set var towsum to 0.0 
set var mintwtim to 1000.0 
set var maxtwtim to 0.0 | 
Set pointer #1 nl for sartime5 
While nl eq 0 then 
set var towtime to towtime in #1 
set var towdate to towdate in. #1 
set var dvmtime to dvmoored in #1 
set var dvmdate to dvmdate in #1 
1£ towdate = .dvmdate then 
set var timediff to .dvmtime - .towtime 
set var timehour to .timediff / 3600.0 
*(converts seconds to hours) 
mec Var vest to... timehour . 
= set var towsum to .towsum + .timehour 
else 
set var datediff to .dvmdate - .towdate 
set var datehour to .datediff x 24.0 
*(converts days to hours) 
set var timediff to .dvmtime - .towtime 
set var timehour to .timediff / 3600.0 
*(converts seconds to hours) 
set var timeadd to .timehour + .datehour 
set var test to .timeadd 
set var towsum to .towsum + .timeadd 
endif 
if test <= .mintwtim then 
set var mintwtim to .test 
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endis 
if test >= .maxtwtim then 
set var maxtwtim to .test 

endif 

next #1 nl 
endwhile 
remove sartime5 
nevEads 
set var totavg real 
set var oscavg real 
set var algavg real 
set var schavg real 
set var towavg real 
set var totavg to .totsum / .tottimes 
set var oscavg to -ossun i ostimes 
set var algavg to . a ek l= times 
Set evar Senavd to times 
set var towavg to Coven / * toweiies 
remove temp 
define 
abt raeutes 

text 

ete 
ene With tmp 
end 
load temp 

ARKH 
end 
newpag 
write INOW poceaaad report | sama! 5 
output printer with sartimes.rpt 
newpage 
print sartimes 
newpede 
output screen 
remove tem 
clear all variables 
set escape off 
re Elta 
*k( end ) 


$ COMMAND 
SARDAY 
HK (KAKKRRRRAKAKK RR RAAKKKRRRAAARKKRRRAAAKKK RR AAAAKKK RR AKAAKKARKKRRRRAAKKKRRKR 


Program: SAR ee SAR Months, SAR Years Frequency 
nae SeGae 

Author: | lien and H R Lang 

Baie ea Vlad meine Aue a 

Description: This program performs a statistical analysis 


of SAR cases to determine percentage of 
cases which occurred on specific days of the 
week, months of the ees and years during a 
specified time perio 


Tables Used: sar 

Temp Tables: sarsuml, sarstat, sarsum, temp 
Reports Used: sardates, sardays 

Forms Used: none 


RAAKRKKAKKKKKAAKKKRAAKKKAKAKKKKAKAKRKKKAAKRKKKRRKAAKEKRKAKARKRKAAKKKAKKEKKAAKRKKKKKK I ) 


set null ! 

set error messages off 
set messages of 

set escape on 

newpage 

clear all variables 
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remove sarsuml a 
Woite "This program will perform a statistical report on" at 3 1 
write "days of fhe week, months of the ee and individual" at 4 1 
write pees that SAR cases have occurred. ae L 
write "This program will evaluate statistics starting from 1980." at 8 1 
a * tease indicate how many years of data you wish to analyze." + 
at 
set var numyears ae 
Set var numyears to 99399999 
S@€t Grror messages on 
While numyears <= 0 or numyears > 32 then 
-.. *(system will only do stats until 2012) 
fillin numyears using "Number of years: " at 12 20 
1f numyears <= 0 or numyears > 32 then 
Write "You must enter a number between 1 and 32" at 15 20 
Pace “Pasese peenter.' at 16 30 
endif 
endwhile 
set var strtdate date 
set var enddate date 
set var strtdate to 01/01/1980 
seme Var count integer 
eee Var count to l 
set var daysadd integer 
Sec Var daysadd to 0 
while count <= .numyears then 
set var yrtestl to .numyears / 4 
Set Yar yrtest2 to .yrtestl x 4 
Semvar yrtest Co .numyears - .yrtestc 
1f yrtest = 0 then 
set var daysadd to .daysadd + 366 


else 
set var daysadd to .daysadd + 365 
endif 
See Yer count to .count + l 
endwhile 
set var enddate to .strtdate + .daysadd 
| newpage 


Set werreor messages, off ; 
Write “Since thie .program can take 5 to 10 minutes to run, you may" + 


emu 1 
prats fen eSs the escape [ESC] key to exit to the RBase 5000 command! + 
at 
me ek where can either restart the menu system by typing:'" + 
a 
write " a RUN STARTUP.BIN" at 16 1 
Wriee "or exitting the system by Sioa at 18 1 
| Write." Br ate 20" 1 
Write "Press any key to continue" at. 23 10 
pause 
newpage 


project sarsuml from sar using sardate aay folderno sorted by + 
Sardate where sardate >= .strtdate and sardate <= .enddate 
compute numrows as rows from sarsuml 
set var begndate date 
set var stopdate date 
set var begndate to 01/01/1980 
set var stopdate to 12/31/1980 
set var count integer 
see var count to l 

. set var saryéar eee 

Set var saryear to 1979 
remover sarstat | 
set var sarnum integer 

| det ime 
attributes 

, saryear integer 

: sarnum integer 

| relations. 

sarstat with saryear sarnum 


ow 





end 
while count <= .numyears then 
compute numsars as count sardate from sarsuml where + 
sardate >= .begndate and sardate <= .stopdate 
set var saryear to .saryear + 1 
if numsars fails then 
set var sarnum to 0 
else 
set var sarnum to .numsars 
endif 
load sarstat 
-saryear .sarnum 
end 
set var yrtestl to .saryear / 4 
set var yrtestZ2 to .yrtestl x 4 
sét var yrtest to isanyearn = ymeesec 
if yrtest = 0 then 
set var begndate to .begndate + 366 
7 set var stopdate to .stopdate + 366 
else 
set var begndate to .begndate + 365 
set var stopdate to .stopdate + 365 
endif 
Set var Count tO =CounEe tes 
endwhile. 
set var jansar integer 
SCiavor cOUleslnceger, 
set var jandatel date 
set var jandatezZ date 
set var febsar an E eer 
set var febdatel date 
set var febdate2 date 
set var marsar integer 
set var mardatel date 
set var mardatez date 
SEG) Var eapesar ace” 
set var aprdatel date 
SC Gey dig aCe) Geared cane 
SCuNVaremaysar : eee 
set var maydatel date 
Set varsmayddteZ Gare 
S€t Var syrarrcat, eee 
set var jundatel date 
set var Jundatez date 
set var julsar integer 
set var juldatel date 
set var juldateZ date 
set var augsar es 
set var augdatel date 
set Vaneaucdatez eddie 
set var sepsar- integer 
set var sepdatel date 
set var sepdateZ date 
set var octsar La 
set var octdatel date 
SCE V die ere ateZ sade 
set var novsar integer 
set var novdatel date 
set var novdatez date 
set var decsar aa eee 
set var decdatel date 
set) Var decdateZecare 
set var jansar to 
set var febsar to 
set var marsar to 
set var aprsar to 
set var maysar to 
set var junsar to 
set var julsar to 
set var augsar to 


OOOOMO000 
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set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
set 
new 


sepsar to 
octsar to 
novsar to 
decsar to 


jandatel to 
andateZ2 to 
ebdatel to 


febdate2 to 


mardatel to 
mardate2 to 
aprdatel to 
aprdate2 to 
maydatel to 
maydate2 to 
pundatel to 
pundateZ to 
puldatel to 
juldate2 to 


augdatel to 


augdatezZ to 


Gi 01/1980 
01/31/1980 


03/31/1980 
04/01/1980 
04/30/1980 
05/01/1980 
05/31/7139 80 
06/01/1980 
06/30/1980 
07/01/1980 
07751 / beso 
08/01/1980 
08/31/1980 


var sepdatel to 09/01/1980 
var sepdate2 to 09/30/1980 
var octdatel to 10/01/1980 
var octdate2 to 10/31/1980 
var novdatel to 11/01/1980 
var novdate2 
var decdatel to 12/01/1980 
var decdate2Z to 
var count to l 
age 


Write "Now performing statistical analysis" at 10 10 


whi 


le count <= .numyears then 
compute. Janrows as count sardate from sarsuml 
sardate >= .jJandatel and sardate <= .jandate2 
1£ janrows exists then. 

set var jansar to .jansar + .janrows 
endif 
compute febrows as count sardate from sarsuml 
sardate >= .febdatel and sardate <= .febdate2 
if febrows exists then 

set Var tebsar to .febear + .febrows 
endi 
compute marrows as count sardate from sarsuml 
sardate >= .mardatel and sardate <= .mardate2 
if marrows exists then 

set var marsar to .marsar + .marrows 
endif 
compute aprrows as count sardate from sarsuml 
sardate >= .aprdatel and sardate <= .aprdate2 
if aprrows exists then 

set var aprsar to .aprsar + .aprrows 
endif 
compute mayrows as count sardate from sarsuml 
sardate >= .maydatel and sardate <= .maydate2 
if mayrows exists then 

set var maysar to .maysar + .mayrows 
endif 
compute junrows as count sardate from sarsuml 
sardate >= .jundatel and sardate <= .jundate2 
if junrows exists then. 

set var junsar to .junsar + .jyunrows 
endif 
compute julrows as count sardate from sarsuml 
sardate >= .juldatel and sardate <= .juldate2 
if julrows exists then 
set var julsar to .julsar + .julrows 
endif 
compute augrows as count sardate from sarsuml 
sardate >= .augdatel and sardate <= .augdate2 
1f augrows exists then 


Shwe 


where 


where 


where 


where 


where 


where 


where 


where 


Bee var augsar to .augsar + .augrows 

endi 

compute seprows as count sardate from sarsuml 
sardate >= .sepdatel and sardate <= .sepdate2 


if seprows exists then 
set var sepsar to .sepsar + .seprows 
endif 


compute octrows as count sardate from sarsuml 


sardate >= .octdatel and sardate <= .octdatez2 
if octrows exists then 
set var octsar to .octsar + .octrows 


endif 
compute novrows as count sardate from sarsuml 
sardate >= .novdatel and sardate <= .novdatez2 
if novrows exists then 

set var novsar to .novsar + .novrows 
endif 
compute decrows as count sardate from sarsuml 
sardate >= .decdatel and sardate <= .decdateZ 
1f decrows exists then 

set var decsar to .decsar + .decrows 
endif 
set var yrtestl to .saryear / 4 
set var yrtest2 to .yrtestl x 4 


Set Var yrtest [oO .SaPVedi = VreeueZ 
if yrtest = 0 then 
set var jJandatel to .jiandatel + 366 
set var jandatez to .jandate2 + 366 
set var febdatel to .febdatel + 366 
set var febdate2 to .febdate2 + 366 
set var mardatel to .mardatel + 366 
set var mardate2 to .mardateZ + 366 
set var aprdatel to .aprdatel + 366 
set var aprdate2Z2 to .aprdatez2 + 366 
set var maydatel to .maydatel + 366 
set var maydate2 to .maydate2 + 366 
sel Var jJundatel to .jUndarel + ae6 
set var juncateZ to) . juacatec > 2G5 
set var juldatel to .iuigarel + 366 
set var juldate2Z2 to .juldateZ + 366 
set var augdatel to .augdatel + 366 
set var augdateZ to .augdate2 + 366 
set var sepdatel to .sepdatel + 366 
set var sepdate2 to .sepdate2 + 366 
set var octdatel to .octdatel + 366 
set var octdate2 to .octdate2 + 366 
set var novdatel to .novdatel + 366 
set var novdateZ to .novdate2 + 366 
set var decdatel to .decdatel + 366 
7 set var decdateZ to .decdateZ + 366 
else 
set var jandatel to .jandatel + 365 
set var jandate2 to .jandate2 + 365 
set var febdatel to .febdatel + 365 
set var febdate2 to .febdate2 + 365 
set var mardatel to .mardatel + 365 
set var mardate2 to .mardate2 + 365 
set var aprdatel to .aprdatel + 365 
set var aprdateZ to .aprdate2 + 365 
set var maydatel to .maydatel + 365 
set var maydate2 to .maydate2 + 365 
set var jundatel to .jmndatetee oe 
set var jundate2 to . imiigate7 eos 
set var juldatel to .jUii@atel tee 
set var juldate2 to .juldate2 + 365 
set var augdatel to .augdatel + 365 
set var augdateZ2 to .augdatez2 + 365 
set var sepdatel to .sepdatel + 365 
set var sepdateZ2 to .sepdate2 + 365 
set var octdatel to .octdatel + 365 
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where 


where 


where 


where 


set var octdateé2 to .octdate2 + 365 
set var novdatel to .novdatel + 365 
set var novdate2 to .novdate2-+ 365 
set var decdatel to .decdatel + 365 
set var decdate2 to .decdate2 + 365 
endif 
Sem Var count to count + 1 

endwhile 

newpage 

compute totsars as rows from sarsuml 

set var pctjan real 

set var pctfeb real 

set var pctmar real 

set var pctapr real 

set var pctmay real 

seeever pctjun real 

set var pctjul real 

S6t var pctaug real 

set var pctsep real 

set var pctoct real 

set var pctnov real 

set var pctdec real 

*(calculating percentages based on total SAR cases) 

set var pctjan to .jansar / .totsars 

set var pctfeb to .febsar / .totsars 

set var pctmar to .marsar / .totsars 

set var pctapr to .aprsar / .totsars 

set var pctmay to .maysar / .totsars 

set var pctjun to .junsar / .totsars 

set var pctjul to .julsar / .totsars 

set var pctaug to .augsar / .totsars 

set var Betsep to .sepsar / .totsars 

set var pctoct to .octsar / .totsars 

set var pctnov to .novsar / .totsars 

set var pctdec to .decsar / .totsars 


peas . 
foe  Pr@paring™’report...." 
1f numrows fails or numrows = 0 then 


nape oss . | 
write 'No records exist in the database matching your selection + 


: Crumemie" at 10 1 
write "Please press any key to continue" at 16 10 
pause 
else . . 
output printer with sardates.rpt 
newpage 


print sardates 
output screen 
endif 
remove sarsum 
remove sarstat 


newpage 

Clear numrows 

ag sarsum from sar using folderno sarday sardate where + 
Sarday exists and sardate exists 





compute numrows as rows from sarsum 

compute: monday as count sarday from sarsum where sarday eq mon 
compute tuesday as count sarday from sarsum where sarday eq tue 
compute wedsday as count sarday from sarsum where sarday eq wed 
compute thursday as count St from sarsum where sarday . thu 
compute By oy as count Sno rom sarsum where sarcay eq fri 
compute saturday as count sar ao from sarsum where sarday eq sat 
compute sunday as count sarday from sarsum where sarday eq sun 
compute totdays as count sarday from sarsum where sarday exists 
S€t Var petmon rea 

set var pcttue real 

set var pctwed real 

eet var petthu real 

Sét var petfri real 

set var pctsat real 


or 


set var pctsun real 

set var pctmon to sence / .totdays 
set var pcttue to .tuesday / .totdays 
set var pctwed to .wedsday / .totdays 
set var pctthu to .thursday / .totdays 
set var pctfri to .frida ee jtotdays 
set var pctsat to .saturday / .totdays 
set var pctsun to - Suey 4 .totdays 


white /rrocessing cs ae 
write "Now preparing report 
remove temp 
define 
atthmetes 
text 
ee 
bene with tmp 
end 
load temp 
ex! 
end : 
1f numrows fails or numrows 
newpage 
Write "No records exist in the database matching your selection + 
criteria" at 10 1 
write 'Please press any key to return to menu" at 16 10 


istical information completed." at 10 1 
BE ll ek 


= 0 then 


output printer with sardays.rpt 
newpage 
print sardays 
newp page 
output screen 
endif 
clear all variables 
remove temp 
remove sarstat 
newpage 
set escapemoert 
re cuian 
*x( end ) 


$ COMMAND 


DAYNIGHT 
K ( RKAKARARKKKKK RRA AKKKK KAKA AKKK RAK AK KAKKK RAK AKAKKKK RAK AAA KKK RARKAKAKKRAAKR AI 


Program: 2 
AUENIOE <) 

Daten Whieren. 
DeiscriIp elon: 


time vs. yoo eG ams Frequency Analysis 
Allen and H R Lang 

Riguas too? 

This ppesean performs a statistical analysis 
of SAR cases and Boardings to determine 
percentage of cases which occur in the 
daytime vs those that occur at — during 
a specified time period. 


Tables Used: sar, boarding 

Temp Tables: sarsum, bosum, temp 
Reports Used: daynight 

Forms Used: none 


RAKAKKKKKKKAKKKKKKKKKKKKKKKKKKKKKAKKKKKAKKKKKAKKKAKKKKAKKKAKAKKKAKKKKAKKKAEKER ) 


set null " " 

set escape on 

set messages off 

set error messages off 
clear all variables 
remove sarsum 


newpage 
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write "This program performs a statistical analysis of Search &'! at 2 1 
verre "Rescue cases and Boardings to determine the percentage of " + 
ae 1 
ee oe cosee which occurred during the day and at night during a " + 
a 
write "specified time period. " at 5 l 
set var strtdate date 
set var enddate date 
set var datediff to 0 
set error messages on 
while datediff <= 0 then 
Geicte “Please enter eae date_in the form MM/DD/YYYY:" at 8 2 
fmmtan strtdate ueang " "at 8 51 
write "Please enter ending date in the form MM/DD/YYYY:" at 10 1 
Eertin enddate using " " at 10 51 
Seusvar datediff to .enddate - .strtdate 
endwhile 
Sem,e@rror messages off . 
project sarsum trom sar Noung ssunrise ssunset sartime sardate where + 
sardate >= .strtdate and sardate <= .enddate and ssunrise exists and + 
Sartime exists 
compute numrows as rows from sarsum . 
compute daysar as count sartime from sarsum where sartime gea + 
ssunrise and sartime lta ssunset . 
compute nitesar as count sartime from sarsum where sartime lta + 
ssunrise or sartime gea ssunset 
set var totsars to .daysar + .nitesar 
set var pctdays real 
set var pctnites real 
set var pctdays to .daysar / .totsars 
set var pctnites to .nitesar / .totsars 
Seuever pctdays to .pctdays x 100.0 
Seu Varfoctnites’to .pctnites x 100.0 
7 remove sarsum_.. 
remove bosum 
newpage . . 
| ae bosum from poaramae using bsunset bsunrise botime bodate where + 
odate >= .strtdate and bodate <= .enddate and bsunrise exists and + 
botime exists 
compute numrowsl as rows from bosum 
compute daybrd as count botime from bosum where botime gea bsunrise + 
and botime lta bsunset 
compute nitebrd as count botime from bosum where botime lta bsunrise + 
or botime gea bsunset 
set var totbrds to .daybrd + .nitebrd 
set var pctdayb real 
set var octniteb real 
set var pctdayb to .daybrd / .totbrds 
set var pctniteb to .nitebrd / .totbrds 
set var pctdayb to .pctdayb x 100.0 
set var pctniteb to .pctniteb x 100.0 
remove bosum 
remove temp 
newpage 
define 
attributes 
CMmecext 2 
relations 
temp with tmp 
end 
load temp 
UK 
end 
newpage . 
white "Preparing réport....." 
1f numrows fails or numrows = 0 then 
1£f numrowsl fails or numrowsl = 0 then 


newpage ' | | | 
Wears oe records exist matching your selection criteria" + 
a 


9 





write "Please press any key towmeturn tosmenueat Demo 


output printer with daynight.rpt 
newpage 
print daynight 
pevaee” 
output screen 
endif 
fae 
SUL DUEEprinver 
newpage 
eriieadayniGne 
neweae= 
output screen 
endif 
remove sarsum 
remove bosum 
remove temp 
newpage 
he tule 
*( end ) 


S COMMAND 


SARDUMP oa 
KR ( KRARAAAAKKKKKKKKKKKKKKK KK RKK ARK KKK AKKKKRAKKKKK KKK AAKKKRRK KKK RKKAARAAAKKK 


Program: SAR Summary Lis cinS Program 

Piet: J D Allen and H R Lang . 

Dave” Wraeren: August 1987~~ 
Description: This program performs a dump of the table SAR 


of those SAR cases that occurred during a 
specified time period. The listing is somite 
by date prior to being printed. 


Tables Used: sar 
Temp Tables: sarsum 
Reports Used: sar 
Forms Used: none 


RAKAKKRKKKRKKAKKKKKKKKRKKKKKAKKKRKRKKK KK KK KKK KK AK RKRAKKKKRKREKRARKRARKKRAIR ) 


Set nim! 

SEE sescape=on 

set messages off 

set error messages off 

newpage 

clear all variables . 

write "This program will dump all information on SAR cases " at 3 1 
Wea os are selected based on SAR date. If you wish to print" + 
a 

wet ee pour the entire database of SAR cases, please enter the date " + 
a 

Wr Le aera Oo for the starting date and todays date for the " + 
at 6 


write "ending date....... Frees gicticwisaned th 0c 5 ar aaa ere Mat 
sue fl 
set var strtdate date 
set var enddate date 
set var datediff to 0 
set error messages on 
while datediff <= 0 then 
Write "Please enter tee ae ate in the form MM/DD/YYYY:" at oa 


fillin strtdate using" "a 
write "Please enter ending date in the form MM/DD/YYYY:" at 11 1 
fallin @nddate using '"" .ateii 53 
set var datedatf to Jdenddate - Vetredate 
endwhile 


380 





set error messages off 

remove sarsum 

newpage 

project sarsum from sar ug Ung all sorted by sardate where + 
sardate >= .strtdate and sardate <= .enddate 

compute numrows as rows from sarsum 


newpage 
write ''Now prehearing PERO, We fe ois levsieis a " at @i 1 
if numrows fails or numrows = 0 then 


newpage | 
perce te records exist matching your selection criteria" + 
at 

write "Please press any key to return to menu" at 16 10 


output printer with-sar.rpt 

newpage 

Beint sar 

Be epage 

output screen 
endif 
remove sarsum 
newpage 
clear all variables 
return 
*( end ) 


S COMMAND 


IMMEDSAR 
K (KKRKKAKKAKKK KKK KK KKK KKK KEKE RER ERE KKK RKKK RK AKER RRR KARR 


Program: Immediate SAR Frequency Program 
mAWChOr : J D Allen and H R Lang 
Berece Writter: August 1987 et 
Description: This pocee ertorms aestatistical amwalysis 
of SAR cases to determine percentage of cases 
which are of immediate nature during a 
specified time period. 


Tables Used: sar 

Temp Tables: sarsum, temp 
Reports Used: immedsar 
Forms Used: none 


KRAKKKKKKAKKKAKKAKKRKKKKKKKKAKKKAKAKAKKKKKKKKKAKERERKERRKARKRAKAKKERERRKRRARKKKA ) 


set null ' " 

set escape on 

set messages off 

set error messages off 
clear all variables 
remove sarsum 


newpage 
write’ This program performs a statistical analysis of Search &" at 2 1 
Grace "Rescue cases. to determane the»percentage of cases: which " at 3 1 
Gaiee ane "considered to be of an_immediate nature or of " at 4 1 
ie Cmedzace peril to the vessel during a specified time period" + 
a 
Ss@t var Strtdate date 
set var enddate date 
set var datediff to 0 
set error messages on 
while datediff <= 0 then ; 
weaoce "Please énter wiht: Gece an the form MM/DD/YYYY:" at 6 1 
Pom SEECOMee Using Uo" wt .8 §1 
write "Please enter ending daté in the form MM/DD/YYYY:" at 10 1 
DiLlin enddate uBing "' ' at 10,51 
Set var datediff to .enddate - .strtdate 
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endwhile 
set error messages off 
remove sarsum 
newpage 
project sarsum from sar using folderno immedsar sardate where sardate + 
>= .strtdate and sardate <= .enddate 
compute numrows as rows from sarsum 
compute totsars as count folderno from sarsum where folderno exists 
compute totimmed as count immedsar from sarsum where immedsar = Y 
set var pctimmed real 3 
S€ Gey an pC tno iene ce 
set var pctimmed to .totimmed / .totsars 
set var notimmed to .totsars - .totimmed 
set var pctnotim to .notimmed / .totsars 
remove temp . oe 
*(defining temporary relation for printing) 
detanic 
attributes 
els Grose 
rewaeLons 
temp with tmp 
end 
*(loading temporary relation with data) 
load temp 
Wye! 
end 
neweede . | 
write "Now prepanand Immediate SAR case report....." at 10 1 
1£f numrows fails or numrows = 0 then 
newpage 
a fo records exist matching your selection criteria!" + 
at 
write "Please press any key to return to menu" at 16 10 
pause 
else 
output printer with immedsar.rpt 
newpage 
print immedsar 
output screen 
endif 
remove sarsum 
remove temp 
newpage 
clear all variables 
return 
k( end ) 


382 





APPENDIX M 
VSLRPTS SOURCE CODE 


S$ COMMAND 


VSL_MAIN 
HK (KRAKAKKAKKKKKKKKKKK KKK KK KKKKK RRR RRR RRR RRR RIERA K KAKA KAKA 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


VESSEL REPORTS MENU and APPLICATION PROGRAMS 


Author: Jon D. Allén, LT, USCG 
Heidi R. Lang, LT, USN 
AUGUST 1987 


RRKKRRRKKKKKKKKKRAKRRKKARKKKKAKAKKKRRKKKKKAKAKKKKKKKKKKRKRK RR RRERRRKKKRRKKKE ) 


set error messages off 

set messages of 

set escape off 

Clear all variables 

newpage _ 

Set vax picks integer 

choose ete. from vsl_menu in vslirpts.apx 

1£ picks’ eq 0 then 
@eee to restvsl.cmd 

endif 

i Pireks eq 1 then 
Bee VESSEL in. vslrpts.apx 
quit to restvsl.cmd 

endif 

tf picks eq 2 then 
run VSLOWNER in vslrpts.apx 
gut to restvsl.cmd 

endif 

feproko eq 3 then 
run VSLOPER in vsirpts.apx 
uit to restvsl.cmd 

endif 

it pease eq 4 then 
aumec to restrpts.cmd 

endif 

quit to restvsl.cmd 

we Curn 

Smenu 

vsi_menu 

column SARELTIS --- VESSEL REPORTS 

VESSEL SUMMARY LISTING 


VESSEL --- OWNERS OF SPECIFIED VESSELS 
Veeere --- OPERAIORS OF SPECIFIED VESSELS 
RETURN TO REPORTS MENU 

*( end ) 

S$ COMMAND 

VESSEL 


KR (RAKKAAKKKKRRKRKKKKKKKRKKKAKKKRRRKKKKKKKKAKAKRRRERK KKK KKKKRKARKKKRERKREKRER KKK 


Program: Vessel Summary Listing Program 
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Author: J D Allen and H R Lang 


Date Written: August 1987 
Description: This progpan Deu mouus a dump of the VESSEL 
table. isting entries are selected by 


vessel type, vessel use, and by an 
alphabetic search. 


Tables Used: vessel, boattype, boatuse 
Temp Tables: vslsum, vslsuml, vslsum2 
Reports Used: vessel 

Forms Used: none 


RARKARKKRKKRKKKKRRKRRKKAAKKRRKARKARKRRRRRKR RRR RRRRRRR RRR RR RKARKKRKRKKEEZ ) 


setynuiia 
set error eee GOLF 
set messages of 
set escape on 
newpage . 
Glearwall variables. © . 
Write "This program will dump all information on vessels " 
write "which are selected based on an alphabetic search, vessel " 
write 'typessearch, and a véseel "ee seqncur 
write "Tne following 1s a Itst a legal Cedeumronwe 7coce: Eee (they " 
Wie can be modified by changing/adding codes to the BOATTYPE table) :" 
write 
select all from boattype sorted by vtype 
Set Vabeledaltypmtext 
set var typchoic text 
set Var peda ED to no 
while legaltyp eq no then 
set error messages on 
fillin typchoic using "Please enter in vessel type or [XX] for all + 
types. 
set error messages off 
1£ typchoice eq XX then 
set var anytype to yes 
set var legaltyp to yes 
break 
else 
set var anytype to no 
erGinaas 
set pointer #1 nl for boattype 
while niWecdedmcnen 
set var typetest to vtype in #1 
ee typenorc eq .typetest then 
set var legaltyp to yes 
break 
endif 
next #1 nl 
endwhile 
endwhile 
newpage . 
set var usechoic text 
set var Jegqalusesiouno 
write 'The following is a list of legal codes for vessel uses. Thesemm 
write ibe modified by adding/changing the values in the BOATUSE table." 
write 
select all from boatuse sorted by vuse. 
set var legaluse text 
set var usechoic text 
Setuvan aSda rue to no 
While legaluse eq no then 
set error messages on 
fillin usechoic using "Please enter vessel use or XX for all types: ' 
set error messagesmors 
1f usechoic eq XX then 
set var legaluse to yes 
set var anyuse to yes 
break 
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elise 
set var anyuse to no 
endif 
set pointer #1 nl for boatuse 
While nl eq 0 then . 
set var usetest to vuse in #1 
1f usechoic eq .usetest then 
set var legaluse to yes 
break 
endif 
next #1 nl 
endwhile 
endwhile 


ee" . 
ae ° "Finally, you will be asked to enter a single letter for both + 
e 
Perce 'start and the end of an gg ae pone ng. For example, if " 
write "you enter an [{e] for the start and an [i] for the end, the " 
weite AES ram will only list those vessels whose names begin with the" 
oe ee. etfters ({e] through [i] inclusively. To select the entire + 
vesse 
ee "database, please enter [a] and [z] in their corresponding + 
ields 
See var strtltr text 
oii enditr text 
@epevar ltrdiff to 0 
seu, error messages on 
while ltrdiff = 0 then . 
Meet Stbteltr using “Please enter™starting létter: “ at 14 1 
mmeeneenditr using "Please enter ending letter: " goake 161 
memenaitr lt .strtltr then 
Bee Var ltrdiff to 0 


else | 
break 

endif 
endwhile 
set error messages off 
newpage 
write "You now have the option to select how you would like the + 
Bemporce’ at 3 1 : 
ee, 6° appear. It can be sorted by vessel name, vessel HIN, "' + 
a 


write "vessel type, or vessel use." at 5 1 
set var choice text 
setevar legqaich to no 
While legalch eq no then 
rece |) Sorted by vessel name" at 8 1 
Setees 2 gornted by vessel HIN' at 9 1 
Seve '3 #Somted by vessel type" at 10 1 
write ''4 Sorted by vessel use" at ll 1 
set error messages on 
fillin choice using "Please enter your choice: " at 13 1 
set error messages off 
1f choice ed 1 or choice eq 2 or choice eq 3 or choice eq 4 then 
set var legalch to yes 
break 
else 
set var legalch to no 
endif 
endwhile 
remove vslsuml 
remove vslsum2 
remove vslsum —, 
*(produces vessel listing sorted by vessel name) 
iz chotee eq. then ; 
project vslsuml from vessel ag all sorted by vslname where + 
vélname gé .6trtltr and vsiname le .endltr 
1f anytype eq yes then 
7 project vslsum2 from vslsuml using all 
else 
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abrovect vslsum2 from vslsuml using all where vsltype eq .typchoic 
endl 
1f anyuse eq yes then 
; project vslsum from vslsum2 using all 
else 
ppeouect vslsum from vslsum2 using all where vsluse eq .usechoic 
endi 
endian ma 
| *(produces vessel listing sorted by vessel HIM) 
1£ chewcemecm: then 
project vslsuml from vessel using all sorted by vslhin where + 
vslname ge .strtltr and vsiname le .endltr 
if vanyeype eq yes ener | 
i project vslsum2 from vslsuml using all 
else 
aeeue vslsum2 from vslsuml using all where vsltype eq .typchoic 
endi 
if anyuse eq yes then 
, project vslsum from vslsum2 using all 
else 
eee vslsum from vslsum2 using all where vsluse eq .usechoic 
endl 
endif ae 
| *(produces vessel listing sorted by vessel type) 
1f choice ed Sa them | 
project vslsuml from vessel using all where vslname ge .strtltr and + 
vsiname le .endltr 
if anytype eq yes then | 
7 project vslsum2 from vslsuml using all sorted by vsltype 
else 
project vslsum2 from vslsuml using all sorted by vsltype where + 
vsltype eq .typchoice | 
, @ndi£ 
z= anyuse eq yes then 
4 project vsisum from vslsum2 using all 
else 
Jeo vslsum from vslsum2 using all where vsluse eq .usecholc 
endi 
endif ai 
*(produces vessel’ listing sorted by vessel use) 
1f choice eq@ then 
project vslsuml from vessel using all where vslname ge .strtltr and + 
vslname le .endltr 
TE anyeype eqeyecmeicn: 
7 project vslsum2 from vslsuml using all 
else 
apo vslsum2 from vslsuml using all where vsltype eq .typchoic 
endi 
if anyuse eq yes then : 
, project vslsum from vslsum2 using all sorted by vsluse 
else 
project vslsum from vslsum2 using all sorted by vsluse where + 
vsluse eq .usechoic 
endas 
endif 
compute numrows as rows from vslsum 
1£ numrows fails or numrows = 0 then 
Write "No records match selectlonycriternia” aie i) be 
write "Please press any key to continue” at 16 10 
pause 
ease 
output printer with vessel.rpt 
newpage 
print vessel 
output screen 
endif 
remove vslsum 
remove vslsuml 
remove vslsum2 
newpage 


386 





clear all variables 


Bec Urn 
*( end ) 
S$ COMMAND 
VSLOWNER 
 ( RAKRKKARKAKKKAKAKAKAKAKAKKK KKK AK AKAKARKKAAKK ARK AA RAK RK AAA AKA RAK ARK RK 
Program: Vessel - Owner Dump Program 
BOChOr: — J D Allen and H R Lang 
Bate Written: August 1987 — 
Description: This oe performs a listing sorted by 
vessel name of those vessels which are 


owned by a sh eee tec aE OUP of owners. All 
Gfetvesvesse ls in tite VESSEL table may be 
selected or only’ greuprmspecified mi an 
alphabetic search. 


Tables Used: owvsl, owners, vessel 

Temp Tables: ownvsis, ownvslsl, ownvsls2 
Reports Used: vslowner 

Forms Used: none 


KREKRKARAKRRAARARAAARRRAARKRRRARARRRRARARRRRRRRRARRRRRARARRRRKRRARRRKERARRARRREAKKK ) 


eee | 
set error messages off 
set messages of 
S€t escape on 
newpage 
clear all variables . 
Grice "This program will prepare a listing of owners which" at 3 1 
write’ ''own by a specified ape of vessels. Tha® report can" at 4 1 
Wetee “provide a listing of all owners»and their vessels by" at 5 1 
Vegees Fesponding (y] to the following question...... at 
Write "Do you wish a complete listing of all owners and their" at-9 1 
Write "vessels contained in the system?" at 10 1 
Set var allrécs* text 
S@C @fror messages on 
Pato alireessusing '" " at 10 40 
set error messages off 
remove ownvsls 
remove ownvslsl 
remove ownvsls2 
newpage : 
Seeererecs contains ''y" then . | . 
Join owners using ownid with owvsl using idowner forming ownvslsl 
jJOin ownvslsl using vhinown with vessel using vslhin forming + 
ownvsls2 - 
project ownvsls from ownvsls2 using ownlname ownfname ownmi owndob + 
ownaddr owncity ownstate ownzip owntelno vslname vslhin sorted by + 
vslname 
else 
newpage 
set var strtltr text 
set varwendltr text 
set war-ltudiff to, 0 
set error messages on 
While ltrdiff = 0 then 
Whites Enter s®arting ane Co tart Ssetren:” at 5 1 
Aen Serulcy using " " @t 
write "Enter ending letter(s) to end search:" at 7 1 
fillin endltr ee YT eee 7 eS 
if @nditr lt .trtitr then 
set var ltrdiff to 0 
else 
break 
endif 
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endwhile 
set error messages Ors . 
jOin owners using ownlid with owvsl using idowner forming ownvslsl 
join ownvslsl using vhinown with vessel using vslhin forming + 
ownvsls2 
project ownvsls from ownvsls2 using ownlname ownfname ownmi owndob + 
ownaddr owncity ownstate owe owntelno vsiname vslhin sorted by + 
Rename where vslname ge .strtltr and vslname le .endltr 
end 
remove ownvslsl 
remove ownvsls2 
neweaue 
compute numrows as rows from ownvsls 
if numrows fails or numrows = 0 then 
write "No records match selection criterza" at 10 10 
write "Please press any key to continue" at 16 10 
pause 
else 
output printer with vslowner.rpt 
newpage 
print vslowner 
output screen 
endif 
remove ownvsls 
newpage | 
Clear all variables 
recuin 
*( end ) 


S$ COMMAND 


VSLOPER 
K ( KRRRAKKRRKAKAKRKRAKKKRKAKKKRAKKKKRRKAKKRRKAAKR RR KKK KARR AERKK RRR KKK 


/ 


Program: Vessel - Operator Dump Program 

Author: JD Allen and H R Lang 

Date Written: August 1987 _ = 

Description: This abeg 2 performs a oa Teint by 
vessel name of those vessels which are 


SS by a specified cEene of operators. 
The entire list of vessels may bespranted 
or a specified group based on an alphabetic 


search. 
Tables Used: opvsl, operator, vessel 
Temp Tables: opervsls, opvslsl, opvsls2 
Reports Used: vsloper 


Forms Used: none 


RAKKKAKKKAKKKAKKKKRKKKKAKRRKKKKAKKRKKKRKKKAKRKKAAKERKRKAKAKAKRKRKKAAKRKRKKR ARK ) 


set null " * 

set error messages off 

set messages of 

set escape on 

newpage 

Clean wat van lopeesms asa 

write "This program will prepare a taSeng of operators which" atgeem 
write "operate a specified group of vessels. This report Can wate 
write "provide a listing of all operators and their vessels by" at 5 l 
write "responding [y] to the following question)... ac ommem 

WE Leo you wish a complete listing of all operators and their" + 
at 

write "vessels contained in the system?" at 10 1 

set var allrecs text 

set error messages on 

fillin allrecs using " " at 10 40 

set error messages o 

remove opervsls 
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remove opvslsl 
remove opvsls2 
nhewpage : 
m dilrecs containss "y" then — ] | 
jOin operator using opid with opvsl using idoper forming opvslsl 
join anys ist using vhinoper with vessel using vslhin forming opvsls2 
project opervsls from opvsis2 using oplname opfname opml oP ob + 
* opaddr opcity opstate opzip optelno vsiname vslhin sorted by vsliname 
else 
newpage 
Set var strtitr text 
set var endltr text 
set var ltrdiff to 0 
gee error messages on 
while ltrdiff = 0 then 
write "Enter starting Se to seart search:" at 5 1 
piven sSitetlabris tngiale!! sate 45 
Weate "Enter ending letter(s) to end search:” at 7 1 
Pietin endltr pre eugecittig? °o 
femenditr it .strtitr then 
Set Vale Lerartr to 0 
else 
break 
pmenait 
endwhile 
eet error messages off . . 
jOin operator using opid aE Ops using idoper forming opvslsl 
join opvsisl us 19g vhinoper with vessel using vslhin sOunee opvsls2 
project opervsls from opvsls2 using oplname opfname opmi opdob + 
opaddr opcity opzip opstate optelno vslname vslhin sorted by + 
a where vslname ge .strtltr and vsiname le .endltr 
endif 
compute numrows as rows from opervsls 
remove opvsisl 
remove opvsls2 
newpage . 
1f numrows fails or numrows =_0 then. 
[anew NO records match S@lection criteria" at 10 10 
Write "Please press any key to continue" at 16 10 
pause 
else | 
output printer with vsloper.rpt 
newpage 
print vsloper 
Sueput screen 
endif 
remove opvsls 
newpage , 
clear all variables 
return 
*{ mad ) 
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APPENDIX N 
PRSRPTS SOURCE CODE 


$ COMMAND 


PRS_MAIN 
 (RRRRAKKAAKK KKK RK AAKK KKK KK RRR RAK KKK KARR RRA KK KK KK RARKK KKK KAKA RRR AKKKKAKAK 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


PERSONNEL REPORTS MENU and APPLICATION PROGRAMS 


Author: Jon D. Allem, LT susee 
Heidi R. Lang, LT, USN 
AUGUST 1987 


RAKRKKKKARRRKAKRKKKAKRRKKK RK RKAK RRR RRKAKARKRRKKAKRRRKRK RAK RRKAKRRRKAKRKR REZ ) 


set error messages off 

set messages o 

set escape off 

clear all variables 

newpage . 

Set. Van picko integer . ~ 

choose pick9 from prs_menu in prsrpts.apx 

1f pick9 eq 0 then 
quit to restprs.cmd 

endif 

Li paleo eq etrien 
run OWNERS in prsrpts.apx 
quit to restprs.cm 

endif 

af eaeve eq Zecwen . 
run OWNVSL in prsrpts.apx 
quit to restprs.cmd 

endif 

If pleko equa) then 
run OPERATOR in prsrpts.apx 
quit to restprs.cmd 

endif 

Lf pick ede tener 
run OPERVSLS in prsrpts.apx 
quit to restprs.cmd 

eneirn 

1f. pick9 eq 5 then 
GUmteGo fésemp cts .cma 

endif 

Guzteco restprs.cmd 

heen 

Smenu 

prs_menu 

column SARELTIS --- PERSONNEL REPORTS 

OWNERS OF VESSELS SUMMARY LISTING 

OWNER --- VESSELS WHICH ARE OWNED BY SPECIFIED OWNERS 

OPERATORS OF VESSELS SUMMARY LISTING 

OPERATORS --- VESSELS WHICH ARE OPERATED BY SPECIFIED OPERATORS 

RETURN TO REPORTS MENU 


*( end ) 


4 
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SCOMMAND 
OWNERS 
K (RAAKKAKKAKKKKKAKKAKAAKKAKKAAKKAKKKAKKK RA RKKKKAKARK KARA A KKK KAKA ARK ERAK RK KK 


Program: Vessel Owners Table Dump 

Author: J D Allen and H R Lang 

Date Written: August 1987 ~ 

Description: This Pt Omran prints a sorted listing of 
vessel owners contained in the database 
based on the owner's last name and date 
o® bagth. 

Tables Used: owners 

Temp Tables: ownsuml, ownsum2 

Reports Used: owners 

Forms Used: none 


RAKKKAAAKAKKAKRKRKKKKKKKAKKAKRKRRRRKKKAA AKA KAKA RRARRRKKKRKKARKKAKAKRRER ) 


set null " "' 
set error ae Off 
set messages of 
set escape on 
newpage 
Mie ail variables 
write "This By oguam wlll dump all information on owners in the +t 
database" at 3 
Gee which aré selected based on date of birth. If you wish to + 
pane at 4 1 | 
wee “ae ips entire list of owners, enter the date [01/01/1900] + 
Clay a 
write "the starting date and todays date for the ending date." at 6 1 
set var datediff to 0 
Seb erhotr messages on 
While datediff <= 0 then 
aeeeer’'P lease enter Stabhing cate in the form MM/DD/YYYY:" at 8 1 


feelin strtdate using " " a 
waoee "Please enter ending date in the form MM/DD/YYYY:" at 10 1 
fillin enddate using " " at 10 53 ; 
set var datediff to .enddate - .strtdate 
endwhile 
set error messages off 


wed e"'Since this listing can be very long, you have the option of + 
ae Bag anting a selected alphabetical grouping of owners. You will + 
Wee asked to enter a single letter for the both the start and end + 
eee BERET YS grouping. For example, if you enter in an [e] + 
write "start and an [i] for the end, the program will provide a + 
listing" git 7 1 


a of only those owners whose last names begin with the letters " + 
at 

write '[e] through [1]. To select the entire owner database, + 
pleaSe" atu9 1 | | ; 

wee oe Lab ands (zi) in their .comrégponding, Frelds: ......s60s0.- Wg 

a 


set var strtltr text 
set var endltr text 
e@t war Itrdiff to 0 
set error messages on 
While ltrdiff = 0 then 


fallin strtltr using "'Pleasé enter Starting letter: " at 14 1 
Fillin endltr yeang "Please @nter énding, létter: 8c 16 1 
2f-enaltr Le Streltr then 


set var ltrdiff to 0 


So 


enor 
endwhile 
set error messages off 
remove ownsuml 
remove ownsum2 
newpage . 
project ownsuml from owners using all sorted by ownlname where + 
owndob >= .strtdate and owndob <= .enddate 
project ownsum2 from ownsuml using all where ownlname ge .strtitr and + 
ownlname le .enditr 
compute numrows as rows from ownsum2 
newpage . rs, | 
write "Processing of statistical information completed." atyioml 
write "Now Reehabuag FEDOLE . se ces eee te le 
1f numrows fails or numrows = 0 then ~ 
writes ""No records match selection critemiea ear 10 10 
write "Please press any key to continue" at 16 10 
pause 
else. 
output printer with owners.rpt 
newpage 
print owners 
newpede 
output screen 
endif 
remove ownsuml 
remove ownsum2 


newpage 
clear all variables 
FeruGn 
*( end ) 
S$ COMMAND 
OPERATOR 
K ( RRRAKKRKKRKKR RAK RRR RAR AK REKKRIKRKRKRRRKERKRERKREKKRAEKREKKRER KERR 
Program: Vessel Operator Listing 
Author: | J D Allen and H R Lang 
Pateavisieeem: August 1987 nn. ae 
Description: This program performs a listing of operators 


of vessels contained in the table OPERATOR. 
They are selected by date of birth and by 
the first letter jee the vast fame. ge 
listing is sorted alphabetically before 
being printed. 


Tables Used: operator 

Temp Tables: opsuml, opsum2Z 
Reports Used: operator 

Forms Used: none 


KKAKKRKKKKKKKKKKK AKER KKK KKKK KERKKRKKKKKRKK KKK KR RKKKAERKKKKKAERKKKKKKKK EKER ) 


sepaauai ou 

set error messages off 

set messages o 

set escape on 

newpage 

Clear all variables . 

write "This program will dump all information on operators " at 3 1 

Wee oo a selected based on date of birth. If you wish to + 

Prine at ; 

phd uk tae entire list of operators, enter the date [01/01/1900] + 
Of ace 

write "the starting date and todays date for the ending date." at 6 1 
set var strtdate date 

set var enddate date 

set var datediff to 0 
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set error messages on 
while datediff <= 0 then | 
write "Please enter =e ae in the form MM/DD/YYYY:" at 8 1 


fiklan Strtdate Using " “a 
Write “Please enter ending date in the form MM/DD/YYYY:" at 10 1 
fillin enddate using " " at 10 53 
set var datediff to .enddate - .strtdate 
endwhile 


set error messages off 


newpage 
write eaeace this listing can be very long, you have the option of + 
on at 

write "printing a selected grouping of operators. You will be" at 41 
Write "asked to enter a single letter for the both the start and end + 


foe at (Cl 
write "an alphabetic grouping. For example, if you enter in an [e] + 
poe ot GU] 


write "start and an [1] for the end, the program will provide a + 
listing! ace 1 
Write "of ay those operators whose last names begin with the + 
Meeeeers "' at 8 1 
write "[e] through [i]. To select the entire operator database, + 
peease” at 9 
pee te meter fa | Sancle|Zieine thew. corresponding fields....<....... + 
a 
set var strtltr text 
set var endltr text 
set var ltrdiff to 0 
set error messages on 
While ltrdiff = 0 then 
Meine strcltr using 'Pleaseventer starting lettér: " at 14 1 
ielin endltr using “Please enter ending letter: eo 1 
Pamenaltr it .strtitr then 
| set var ltrdiff to 0. 
else 
break 
endif 
endwhile 
set error messages off 
remove opsuml 
remove opsum2 
newpage 
project opsuml from operator using all sorted by oplname where + 
opdob >= .strtdate and opdob <= .enddate 
project opsum2 from opsuml using all where oplname ge .strtltr and + 
oplname le .endltr 
compute numrows as rows from opsum2 | 
Gimee "Processing of statistical information completed." at 10 1 
write 'Now Bea ae ae BO Go oo Pica esee ag mene, Wd 
1f numrows fails or numrows = 0 then 
whate "'No records match séléction critéria'’ at 10 10 
Write "Please press any key to continue" at 16 10 
pause 
else . 
output printer with operator.rpt 
newpage 
Scie Operdtor 
SUCpUL Screen 
endif 
remove opsuml 
remove opsum2 
newpage 
clear all variables 
récurn 
*( end ) 


$ COMMAND 
ChEAvoLS 
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K (AKAKKAKKAAKKKKAKKKKKKKAKKKAKKKKAKAKKKKAKKKKKKKKAKARKKAKKKKAKKRKKKRKKKKRKKKK KK 


Program: Operator - Vessel Program 

Author: | J D Allen and H R Lang 

Dave Writ Gem: August 1987 aa 
Description: This program performs a listing sorted b 


operator last name of these vessels wha 
are used by specified operators. Operators 
may be selected by an alphabetic search or 
may be selected in their entirety. 


Tables Used: opvsl, operator, vessel 
Temp Tables: opervsls, opvsisl, opvsls2 
Reports Used: opervsls 

Forms Used: none 


RARKKEKKKKKKKKKKKKKRKAKRKKAEKK KK RKE KKK ERKKRKKAEKKKERKKAEKKKKKKKKKKAKEKKKAERKKE ) 


setfnuli " " 
set error messages off 
set messages off 
Set .@seape on 
newpage . 
Cleantadt Varta tes 8 i. , 
write "This program will prepare a listing of vessels which are’ Jat 
Wey, CBS ed by a selected group of operators. This report can!" + 
a _ 
write’ "provide a listing of all operators and their vessels by" aus am 
write “responding |y] to the foldowang ares ttona in Cr 
wre go you wish a complete listing of all operators and their" + 
at 
write "vessels contained in the system?" at 10 1 
set var allrecs text 
SQERenrOr Messages son 
fillin allrecs using " " at 10 40 
set error messages off 
remove opervsls 
remove opvsisl 
remove opvsls2 
Lf dees y= eye ne 
join operator using opid with opvsl using idoper forming opvsilsl 
join oPyeees us and vhinoper with vessel using vslhin SOFA opvsls2 
project opervsls from opvsls2 using oplname opfname opmi opdob + 
7 opaddr opcity opstate opzip optelno vslname vslhin sorted by oplname 
else 
newpage 
set var strtltr text 
set var endltr text 
set var ltrdiff to 0 
Set error messages on 
while ltrdiff = 0 then 
write "Enter starting Lar to start search:" at 5 1 


filling SemeheReUsidnGe eal 
write "Enter ending letter (s) torendgecearci. a lome ee 
fii lin endagltr WS ici cnn 


if endltr lt .strtitr. then 
set var itrdadrir teor0 
else 
break 
endif 
endwhile 
set error messages off. . 
join operator using opid with opvsl using idoper forming opvslsl 
JO2n eben! peing vhinoper with vessel using vslhin SOL Tag opvsls2 
project opervsls from opvsls2 using oplname opfname opmi opdob + 
opaddr opcity opstate opzip optelno vsiname vslhin sorted by 
aqeeoene where oplname ge .strtltr and oplname le .endltr 
endi 
compute numrows as rows from opervsls 
remove opvslsl 
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remove opvsls2 
newpage 
if numrows falls or numrows = 0 then. ; 
paeee NO record match @@lection criteria” at 10 10 
write "Please press any key to continue" at 16 10 
pause 
éise 
output printer with opervsls.rpt 
newpage 
print opervsls 
output screen 
endif 
remove opervsls 
newpage 
clear all variables 
return 
k( end ) 


S COMMAND 


OWNVSL 
K (KKKKKKKKKKRAKKKAKRKKKKKRKKKKRKRKKKRKRKKRKKKKKAKRKKKKKRKKKAREKKKKKAKERKKKAKEKKKK A 


Program: Owner - Vessel Dump Program 

Author: | J D Allen and H R Lang 

Berece Written : August 1987 “or 

pe Sseription: This program performs a listing sorted by 


owner last name of those owners which own 
specific vessels. Owners may be selected 
in themrecnctineny or may be selected by 
an alphabetic search. 


Tables Used: owvsl, owners, vessel 

Temp Tables: ownvsis, ownvslsl, ownvsls2 
Reports Used: ownvsls 

Forms Used: none 


RAKKKKRKKKKKKRKKKKKKRKKKKRKKKKKKKKAKKKKKRKKKKKKKEKKAKKKRKKKKKRKKKKKRKAKKKKKK K ) 


see nuli ” ' 

set error messages off 

set messages of 

set escape on 

newpage 

clear all variables a 

Vato = tives program will prepare a listing of vessels which are" at 3 1 

write "owned by a selected group of owners. This report can" at 4 1 

write "provide a listing of all owners and their vessels by" at 5 1 

write "responding [y] to the following question...... Nea 1 

Weta Do you wish a complete, listing of a@il owners and their" at 9 1 

write "vessels contained in the system?! at 10 1 

set var allrecs text 

S@C error messages on 

fillin allrecs using " " at 10 40 

set error messages off 

remove ownvsls 

remove ownvsisl 

remove ownvsls2 

newpage 

Peeeeeeecs, contarmns "y" then. . 
join owners using ownid with owvsl using idowner forming ownvslsl 
JOln ownvslsl using vhinown with vessel using vslhin forming + 
ownvsls2 . 
project ownvsls from ownvsls2 using ownlname ownfname ownmi owndob + 
ownaddr owncity ownstate ownzip owntelno vsiname vslhin sorted by + 
ownlname 

else 
newpage 
set vat strtitr text 
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set War endl ty aext 
Set Var Le rceet sto.d 
set error messages on 
while ltrdiff = 0 then 
write "Enter starting er ae to begin search! at 5 l 
fillin strtltr using” “ae @ ao 
write "Enter ending letter(s) to end search:" at 7 1 
fillin endltr using (eace; co 
if “éndltr 1t .stmuith@enen 
set var ltrdiregcoany 
Sse 
break 
endif 
endwhile 
set error messages off . 
join owners using ownid with owvsl using idowner forming ownvsls1l 
join ownvslsl using vhinown with vessel using vslhin forming + 
ownvsls2 
project ownvsls from ownvsls2 using ownlname ownfname ownmi owndob + 
ownaddr owncity ownstate ownzip owntelno vslname vslhin sorted by + 
spunnials where ownlname ge .strtltr and ownlname le .endltr 
endi 
compute numrows as rows from ownvsls 
if numrows fails or numrows = 0 then | 
write "No records matchysellectionscriteniaY sai osko 
write "Please press any key to continue" at 16 10 


output printer with ownvsls.rpt 
newpage 
print ownvsls 
output screen 
endif 
remove ownvsls 
remove ownvslsl 
remove ownvsls2 
Newpage | 
clear all variables 
return 
*k( end ) 
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APPENDIX O 
SQUERY SOURCE CODE 


SCOMMAND 
QRYMAIN 
(RAARKKARAAKRKARKARKARKAKKKA KAKA RKKARKKARRKRKKKAKKKK KKK KAKKKAKKK KKK KK KKAKK KKK K 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


QUERY MENU and APPLICATION PROGRAMS 


Author: geonD. Allen,.LT, USCG 
He1ldi R. Lang, LT, USN 
AUGUST 1987 


RAAKKKKKKKKAKKKKRKKKKKKKKRKKKKKKKEKKKKKKKKKKKKKAKKAKRKKKKAKKKKRKKAKKKKKE ZK J 


set messages off 
set escape off 
newpage , 
clear all variables 
set var picklO integer 
newpage | 
choose picklO from qry_menu in squery.apx 
tieetento eq O then 
Gut to restqry.cmd 
endif 
Piepreet0 éq 1 then 
run guer_vsl in squerywapx 
Guat to nestqny.cmd 
endif | 
ai picklO eq 2 then 
pu dUer per in squery.apx 
gust to restqry.cmd 
endif 
memetexiO é€q 3 then 
quit to restmain.cmd 
endaf 
quit to restqry.cmd 
recurn 
Smenu 
qry_menu 
column SARELTIS --- QUERY MENU 
VESSeL QUERY 
PERSONNEL QUERY 
RETURN TO MAIN MENU 


*( end ) 

S$ COMMAND 

QUER_VSL 

H (KRRARRAKIRK KARA KAR AKER AR RKK RRA RRR IKARIA 
Program: query Vessel 
Author: | R “ie and J D Allen 
Date Written: August 1987 
Description: This program searches database for all 

information concerning a particular vessel. 

Tables Used: vessel, sar, boarding, owner, operator, 


dl 


owvsl, opvsl, vslintel, perintel 


Temp Tables: temp, vslint, perint, bohis, sarhis 

Reports Used: vslaqprn, boqprn, sargprn, owgprn, opaqprn, 
pintgprn, vintg@prn 

Forms Used: vslquery, brdquery, sarquery, ownquery, 


opquery, pintquer, vintquer 


KKKKKKEKRKKKKEKKRRKK KK KKAKKKKKKAKEKK KKK KARKK AK KKK RRA ARKKKRKKARRKAKRKKRRKKARKKK ) 


set messages off 
set escape off 
newpage 
Weite eeogeem loading in progress. Please stand by ..........." + 
at 
clear all variables 
SCE sNU 1 ee 
SCE acemerc Corr 
remove temp *(relation for print purposes only) 
dertine 
attributes 
tmp text 2 
GeLab2ons 
temp with tmp 
end 
load temp 
>. 0.4L 
end | 
while more eq Y then *(main loop) 
set var vvslname text 
Sei Var choice to 0 
while. choice lt 1 or choice gt 6 then 
newpage . 
write "Search Option Menu’! at mul> 
Sige AS fe meme Sale Ome 
write "1. Search by HIN" at 8 15 
wrate ™2. Search by VesseyeNomeusac eee 
write "3. Search by Vessel Number" at 10 15 
write "4. Search by Vessel Ofticaal Number yateiae> 
: gute 'S, Search Only Vessel Intelligence File by Vessel Name" + 
ae 
write "6. Qurt" at Tals 
write ‘Enter Cholee=) se dueloma) 
fillin choice Using = ““cewiamec 
endwhile 
if choice eq 2 then *(search by vessel name) 
set var chk-name to Y 
while chk-name eq Y then 


newpage | 
write ‘Enter name-of desired vessel: “ armlomay 
fillin vvsiname using " " at 10 39 


while vvslname exists then 
set pointer #1 el for vessel where vsliname eq .vvsiname 
newpage 
Tf el equemeuen 
. sel vslname vslhin vslmake vslmodel vsltype vsllenft from + 
vessel where vsiname eq .vvslname 


write 
write "End of data for this vessel name" 
write thot 
write "Press any key to continue! 
pause 
evse, ; | 
“genes write "This vessel name does not exist in the database" + 
a 
write "Press any key to continue" at 15 15 
pause . 
set van choicesto 0 
endif 


set var chk-name to N 
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break 
endwhile 
endwhile 
endif 


1f choice eq 3 then 


*(search by vessel number) 


set var chk-no to Y 
while chk-no eq Y then 


newpage 


write "Enter number of desired vessel: ' at 10 10 


fillin vvslno using 


Uma «LO! el 


while vysino exists) then 
set pointer #1 el for vessel where vslno eq .vvsino 


newpage 


if el e@ 0. then 
set var vvslname to vslname in #1 
sel vslname vslhin vslmake vslmodel vsltype vsllenft from + 


vessel 


write 
write 
write 
write 
pause 
else 


write 
demtO 10 | 

write 

pause 


where vslno eq .vvslno 
End of data for this vessel number' 


"Press any key to continue!’ 


'Thteevessel number does not exist in the database" + 


"Press any key to continue" at 15 15 


set var choice to 0 


endif 


set var chk-no to N 


break 
endwhile 
endwhile 
endif 


if choice eq 4 then 


*(search by vessel official number) 


set var chkoffno to Y 
while chkoffno eq Y then 


newpage a 
Garee "Enter official number of d@sired vessel: " at 10 10 
Elvin VYorino using " " at 10 


while voffno exists then 


ne € 


set pointer #1 el for vessel where vsloffno eq .voffno 


a 
me eileen O then 


set var vvslname to vslname in #1 
sel vslname vslhin vslmake vslmodel vsltype vsllenft from + 


vessel 


write 
write 
WEEee 
write 
pause 
elise 


write 
ae LO» 10 . 

write 

pause 


Where vsiioffino eq .vofino 
End of data for this vessel official number’ 


"Press any key to continue’ 


"This official number does not exist in the database" + 


"Press any key to continue" at 15 15 


set var choice to 0 


endif 


set var chkoffno to N 


break 
endwhile 
endwhile 
endif 


1£ choice ne 5 and choice ne 6 and choice ne O then 


*(search by HIN) 


set var menu to N 
set war chk=hin to Y 
while chk-hin eq Y then 


newpage 


1£ vvslname exists then 
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set var viname to .vvslname 
set var nameok to N 
While nameok eq N then 
newpage | 
set pointer #3 e3 for vessel where vslname eq .vlname 
while e3 eq 0 then 
newpage 
set var vvslname to vslname in #3 
set var vvslhin to vslhin in #3 
draw hinquery with all atl 
Write "Press Ee to advance to next hin, [PGDN] to + 
use disptayed datay at 22—uo 
Write,"or, [ESC] to return’ togmenul! wareas 5 
edit var vvslhin return esc enter pgdn 
if #return eq enter then 
next #3 e3 
endif 
1f #return eq pgdn then 
set var nameok to Y 
break 
endif 
if #return eq esc then 
set var nameok to Y 
set var menu to Y 
break 
endif 
endwhile 
endwhile 
if menu eq Y then 
set var choice to 0 
break 
endif 
else 
set var vvslhin text 
write "Enter HEN cpedesinedi vessel. “sac 1UmLC 
Write "(or enter xxx to go back to menu)" at 12 10 
filiin yvyslnin Using” | deat voam. 
if vvslhin exists and vvslhin eq xxx then 
set var choice to 0 
break 
enat 
erainn . 
While vvslhin exists then . 
set pointer #1 el for vessel where vslhin = .vvslhin 
newpage 
Dee ee eee ore 
*(vessel exists in database 
set var vvsino to vslno in #1 
set var vvsiname to vsiname in #1 
set var vvslmake to vslmake in #1 
set var vvslmod to vslmodel in #1 
set var VVsryeoe to vslyear in #1 
set var vvslton to vsltons in #1 
Set var vvslft to’ vsilem@rt in’ aa 
set var vvslin to vsilenin in #1 
set var vvslhp to vslhp in #1 
set var vvsluse to vsluse in #1 
set var vusedscr to vusedesc in boatuse where vuse eq + 
-vvsluse 
set var vvsltype to vsltype in #1 
set vee vtypdscr to vtypedes in boattype where vtype eq + 
.vvsltype 
set var vvslprop to vslprop in #1 
set var vpropdsc to propdesc in boatprop where proptype eq + 
.vvsipro 
set var vvslhull to vslhull in #1 
set var vhulldsc to hmatdesc in hullmat where hmattype eq + 
.vvslhull 
set var vvsleng to vsleng in #1 
set var vengdesc to ecompdes in engcomp where ecomptyp eq + 
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.vvsleng 
set var vvslfuel to vslfuel in #1 
set var vfueldes to fcompdes in fuelcomp where fcomptyp eq + 
.vvslfuel 
set var vconstr to vslconst in #1 
set var vcondesc to consdesc in constr where constype eq + 
.vconstr 
set var vdecal to cmedecal in #1 
set var vemeyear to cmeyear in #1 
set var voffno to vsloffno in #1 
set var vhome to homeport in #1 
set var vcall to vslcall in #1 
set var vvalue to vslvalue in #1 
set var vsuper to vslsuper in #1 
set var vmasts to vslmasts in #1 
set var vsailno to sailno in #1 
Seu var ynlewror to hlicolor In Fl 
set var vtrcolor to trcolor in #1 
set var vslcolor to slcolor in #1 
set var vcbcolor to cbcolor in #1 
set var vdkcolor to dkcolor in #1 
set var vmarks to vslmarks in #1 
newpage — 
draw vslquery with all at l 
set var vslprn to A 
while vsiprn ne’ Beaneuvslernene Cand vslprn ne~MN then 
Vito eiten > COgprant Vessel Gata, € to contanue or M + 
feremain menu: " at 23 5 . 
| frtlin Vslprn using " " at 23 68 
| Tiawcrprn eq P then 
output printer 
newpage 
print vslqprn 
OUEDUL isgereen 
ena 
1f vslprn eq M ,then 
set var menu to Y 
set var chk-hin to N 
brea 
endif 
endwhile 
Tigmenm @q Y then 
set var choice to 0 


endif 
set pointer #2 e2 for vslintel where intvname eq .vvslname 
set var count to l 
1f e2 eq O then 
newpa 


ge —" 
write "US Coast Guard Group Monterey Intelligence History" + 
at 1 10 


ae ak ; 
wae 8 Net 1s no intelligence for this vessel name" + 
ae 
write "Press any key to continue" at 23 10 
pause 
newpage 
endl 
while e2 eq 0 then | 
set var vintdate to intdate in #2 
set var vepic to epiccode in #2 
set var vstolen to stolen in #2 
set var vvreml to vremarkl in #2 
set var vvrem2 to vremark2 in #2 
set var vvrem3 to vremark3 in #2 
lf count @q 1 thén 
draw vintquer with all at 3 
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endif 
1f count eq 2 then 
draw vintquer with all at 9 
endif 
if count eq 3 then 
draw vintquer with all at 15 
write "Press any key to continue" at 23 10 
pause 


ie 


set var count to .count + l 
1f count eq 4 then 
set var count to l 

endif 

next #2 e2 
endwhile 
set poeoce? a #2 e2 for vslintel where intvname eq .vvsliname 
1f e2 eq O then 

write "Print vessel ane ee information? (Y)" at 23 10 

Fillin vintprn_ using "(" at 23 49 

if vintprn fails or vintprn eq Y then 


newpage 
write "Preparing report, please stand by ........ + 
at 10 10 


remove vslint 
project vslint from vslintel using ail sorted by 2ntdauems 
where intvname eq .vvslname 
output printer 
newpage » 
Pring, vanecdprn 
output screen 
remove vslint 
endif 
endif 
set poupeee #2 e2 for boarding where bovhin eq .vvslhin 
while e QO then 
set odate to bodate in #2 
set pouine to botime in #2 
set vbono to bono, in #2 © 
set vvslpob to vslpob in #2 
set vbolat to obslat in #2 
set vbolong to obslong in ae 
set vviol54 to viol54 in 


eeL 
Val 
Var 
var 
Vat 
Val 
var 


var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
set var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
set var 
var 
var 


vviol55 
vv1iol56 
OS 7 
vviol58 
vvViol59 
vviol60 
vviol6l 
vviol62 
vv1io0l63 
vviol64 
vviol65 
vv1o0l66 
vVV10167 
vviol68 
vuns69 
vuns70 
vuns71 
vuns72 
vuns73 
vuns74 
vuns75 
vuns76 
vuns77 
vuns78 
vuns79 


Lo 


Vis 
viol56 
vi0157 


vyi0158. 


viol59 
v1o0l160 
violél 
viol62 
Viole3 
v1io0l164 
viol65 
v10166 
vV10167 
v10168 


uns69 
uns70 
uns71 
uns72 
uns73 
uns74 
uns75 
uns76 
uns77 
uns78 
uns79 


in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 


vboreml to boreml in #2 
vborem2 to borem2 in #2 
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set 
set 
set 
set 
set 


var 
var 
var 
var 
Var 


vborem3 to borem3 in #2 
vboname to boname in #2 
vborate to borate in #2 
vweapons to weapons in #2 
vale to uns76 in 


ne vnSge | } 
write Ae Coast Guard Group Monterey Boarding History" + 
aheene see 


Sie ~~" ~~ ~~ - eee = = - - Ue ete 2 1 
draw brdquery with all at 3 | 
write "Press any key to continue!" at 23 10 


er #2 e2 for boarding where bovhin eq .vvslhin 


pause 

next #2 e2 
endwhile 
set Spent 
1f e2 eq O then 


WritemPrint boarding histor 
fillin bohisprn using "(" at 


y? (Y)" at 23 10 
23 34 


1f bohisprn fails or bohisprn eq Y then 


newpage 
Waite wrereparing meport, please stand by ........ vee 
at 10 10 


remove bohis ae 
prese@et bohive® from ae 


vslpob obslat obslong vio 


V1oO 


is 


bodate botime bono + 
Sov roleemecrel5S7 vi0l58 + 


Valoto2evioel60 violéd viol62.viol6és viol6é4 viol65 viol66 + 
vi0l167 viol68 uns69 uns70 uns71 uns72 uns73 uns74 uns75 + 
uns76 uns77 uns78 uns79 boreml borem2 borem3 boname + 
borate weapons bovhin sorted by bodate where + 

boven eq .vVsihin 
SULEDUL Printer 


newp 


a 


ge 


print bogprn 
OUEDUT screen 
-remove bohis 


endi 
endif 


£ 


if e2 ne O then 


ne 


age 


ati pero are no boarding cases for this vessel" + 
at 
Write "Press any key to continue" at 20 10 


paus 
endif 


e 


set pointer #2 e2 for sar where sarvhin eq .vvslhin 
oe Var Count to 1 
1f e2 eq O then 


new 


ypage : 
os "US Coast Guard Group Monterey Sar History" at 1 10 


Wr ist 


set 


e i 


eZ 

var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 


eq 0 then 

vfoldno to folderno in #2 
vucn to ucn in #2 
viéucnsto»smucn in#2 
vsardate to sardate in #2 
vsarday to sarday in #2 
vsartime to sartime in #2 
vsarnod to sarnod in #2 
comer to sarpob in #2 
vsarlat to sarlat in #2 
vsarlong to sarlong in #2 
vdistoff to offshore in #2 
vimmed to immedsar in #2 


atgcount,¢q 1, then 

draw sarquery with all at 3 
endi 
1£ count eq 2 then 
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draw sarquery with all at 9 
endif 
1£ count eq 3 then 
draw sarquery with all-at 15. 
Write "Press any key to continue" at 23 10 
pause 
newpage 
endif 
set Varecount to Jcount tet 
1f count eq 4 then 
Set Var CounrE Eo rt 
endif 
next #2 e2 
endwhile 
set eg #2 e2 for sar where sarvhin eq .vvslhin 
1f e2¥eq 0) then 
write "Print Sar history? (1) aeecoes 
fFillin sarnsprn using nf at.23 920 
1f sarhsprn fails or sarhsprn eq Y then 


newpage : 
Write "Preparing report, please stand by ........" + 
ag 10” ip 


remove sarhis . 
project sarhis from sar using folderno ucn mucn sardate + 
Sartime sarnod sarpob sarlat sarlong offshore immedsar + 
sarvhin sorted by sardate where sarvhin eq .vvsihin 
OUEDUL  Prmrer 
newpage 
BELNE salqoen 
SULPUL Screen 
remove sarhis 
enicuien 
engi 
Tie@ecsne) Ol then 
newpage 
write "There are no sar cases for this vesseii™m@ar 10 Tom 
write "Press any key to continue" at 20 10 
pause , 
Grice. . 
set pointer #2 e2 for owvsl where vhinown eq .vvslhin 
newpage 
while e2 eq 0 then | 
set var vowid to idowner in #2 | | 
set pointer #3 e3 for owners where ownid eq .vowid 
set var vowlname to ownlname in 
set var vowfname to ownfname in #3 
set var vowmi to ownmi in #3 
set var vowaddr to ownaddr in #3 
set var voyer ty, to owncity in #3 
set var vowst to ownstate in #3 — 
set var oe to ownzip in #3 
set var vowtelno to owntelno in #3 
set var vowdob to owndob in #3 
newpage 
draw ownquery with all 
write "Press any key to continue! at 23 10 
pause _ a 
set pointer #1 el for perintel where intlname eq .vowlname 
SEG Var 'ceunu tom: 
1f el eq O then 


Bemegs 
| write "US Coast Guard Group Monterey Intelligence + 
History" at 1 10 


WE1ite Wenn n enn neem n nnn nnn ne nn nnn nn enn een nee n nena n= + 
saieaheeteiebeaatatie lent li nade 2 
else 
newpage ; 
ie e There is no intelligence for this owner" at 10 10 
endi 


while el eq 0 then 
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set var vliname to intlname in #1 
set var vfname to intfname in #1 
set var vmi to intma in #1 
set var vdob to intdob in #1 
set var vreml to pintreml in #1 
set var vrem2 to pintrem2 in #1 
set var vrem3 to pintrem3 in #1 
| set var vdate to pintdate in #1 
. VE count seq dy then 
| draw pintquer with all at 3 
endif 
1£ count eq 2 then 
draw pintquer with all at 9 
endif*. 
Hm Coune @#q 3 then 
draw pintquer with all at 15. 
write "Press any key to continue ar 
aie 23mehO 
pause 


newpage 
eae : 


Set Vdrecount to .count # 1 
1f count eq 4 then 
See var count tor 1 
endif 
| next wb el 
endwhile | 
write "Press any key to continue oot 
ate 10 
pause 
next #2 e2 
endwhile a | 
write "Print owners and owner intelligence? (Y)" at 23 10 
fillinwewhdeprn using "(7 at 23 47 
1f owhisprn fails or owhisprn eq Y then 
newpage 
pelce (Preparing report, please stand by o.«..... peat 10) 10 
set pointer #2 e2 for owvsl where vhinown eq .vvslhin 
Wiggle, €Z2.eq)0 Ehen 
set var vowld to idowner in #2 ne 
set pointer #3 e3 for owners where ownid eq .vowid 
set var vowlname to ownlname in #3 
set var vowfname to ownfname in #3 
set var vowmi to ownmi in #3 
set var vowaddr to ownaddr in #3 
set var Vercuty to owncity in #3 
set var vowst to ownstate in #3 
set veo wee to ownzip in #3 
set var vowtelno to owntelno in #3 
set var vowdob to owndob in #3 
SUCput. printer 
newpage 
print owqprn 
CuUtput. Seren 
remove perint 
project perint from perintel using all e6rted by + 
pintdate where intlname eq .vowlname 
OuUtpUucsprinater 
newpage 
print pintqprn 
GMEDUE SCreéen 
next #2 e2 
endwhile | 
remove perint 
endif . 
set pointer #2 e2 for opvsl where vhinoper eq .vvslhin 
newpage 
whi 2 é2 eq 0 then | 
set var vopid to idoper in #2 
set pointer #3 e3 for operator where opid eq .vopid 
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set var voplname to oplname in #3 
set var vopfname to opfname in #3 
set var vopmi to opmi in #3 
set var vopaddr to opaddr in #3 
set var VRE ny to Opes yes #3 
set var vopst to opstate in #3 
set var verze to ePp2aP in #3 
set var voptelno to optelno in #3 
set var vopdob to opdob in #3 
set var vopcrse to opcourse in #3 
newpage 
draw en aee ny with all 
write "Press any key to continue” at 23 10 
pause | 
set pointer #1 el for perintel where intlname eq .voplname 
set var count to l 
1f el eq O then 
newpage 
write "US Coast Guard Group Monterey Intelligence + 
History" atl 
WY1LTe “eco ses 2608888568 668 e = = 88 eee + 


newpage | 7 | | 
Write ya one 1s no intelligence for this operator" + 
at 


Whahewe Eee MOM en ne 
set var viname to intlname in #1 
set var vfname to intfname in #1 
set var vmi to intmi in #1 
set var vdob to intdob in #1 
set var vreml to pintreml in #1 
set var vrem2 to pintrem2 in #1 
set var vrem3 to pintrem3 in #1 
set var vdate to pintdate in #1 
1£ count eq eieenen 
draw pintquer #lem allvctes 
enart 
1f count 6€q.Z2ecnen 
draw pintquer with all at 9° 
endif 
1£ count eq S@then 
draw pintquer with all at 15. 
write "Press any key to continue" at 23 10 
pause 
n 


ewpage 
prried ; 
set var COUNnt sLOMicour- aia 
1f count eq 4 then 
set Var COUNT suomr 
endif 
next #1 el 
endwhile 
write “Press any key to conmtamue " at 2oae 
pause 
next #2 e2 
enawirrte 
wits eae operators and operator intelligence? (Y)." + 
at 
fillinsophtsprredeing ue oes 
if ophisprn fails or ophisprn eq Y then 
newpage 
wri e-"'Preparing report, please stand by ........ " at 100m 
set pointer #2 e2 for opvsl where vhinoper eq .vvslhin 
while e2 eq 0 then — | 
set var vopid to idoper in #2 
set pointer #3 e3 for operator where opid eq .vopid 
set var voplname to oplname in #3 
set var vopfname to opfname in #3 
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set var vopmi to opmi in #3 
set var vopaddr to opaddr in #3 
set var VoD eney to opcity in #3 
set var vopst to opstate in #3 
set var ed to ape in #3 
set var voptelno to optelno in #3 
set var vopdob to opdob in #3 
set var vopcrse to opcourse in #3 
OUEpUt printer 
newpage 
print opgprn 
SUEPUL SeKeENn 
remove perint 
proj@ct perint from perintel wsing all sorted by.+ 
pintdate where intlname eq .voplname 
output. printer 
newpage 
print pintaprn 
SUEDUE Screen 
next #2 e2 
endwhile | 
remeve perant 
endif 
newpage . 
Preece emamor data for this vessel" at 27 10 
set var chk-hin to N 
break 
else 
newpage | 
write, "This HIN does not exist in the database" at 10 20 
write "Do you wish to reenter the HIN? (Y)" at 12 20 
Eten correct using "(" at 12 52 . 
PeecO@ract (extoums, and correct eq N*then 
set var chk_hin to N 
endif 
break 
endif 
. endwhile 
endwhile 
endif 
iteenoiee eq 5 then 
See Vat Chk-1ntl to Y 
while chk-intl eq Y then 
newpage . 
write "Enter name of desired vessel: " at 10 10 
fein Vasdnagé.using,"' “at 10n39 
while vvslname exists then 
set pointer #2 e2 for vslintel where intvname eq .vvslname 
sect Vak count to 1 
1f e2 eq O then 
: newpage 
dios. Coast Guard Group Monterey Intelligence History" + 
at 
WO1Lte Neen nnn nnn mare nnn nn nn nn nnn nn nn nnn neers scecc=- 17 


else 
newpage 
write "There is no intelligence for this véssel name" at 10 10 
write "Press any key to continue” at 23 10 
pause 
encase 
Whale 82 @q 0 than 
set var vintdate to intdate in #2 
set var vepic to epiccode in #2 
set var vstolen to stolen in #2 
set var vvreml to vremarkl in #2 
set var vvrem2 to vremark2 in #2 
set var vvrem3 to vremark3 in #2 
1f, count,.eq@ 1 then 
draw vintquer with all at 3 
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endif 
1f count eq 2 then 
draw vintquer with all at 9 
endrr 
1f count @q 3 ten 
draw vintquer with all at 15 
Write "Press any key to continue" at 23 10 
pause 
newpage 
endif : 
Set Var Counts to coun sata! 
1f count eq 4 then 
set Ver Counc tol 
endif 
next #2 e2 
endwhile . | . 
set aot > #2 e2 for vslintel where intvname eq .vvslname 
if 62 aq) O8tben . . 
write "Print vessel intelligence information? (Y)" at 23 10 
fillin’ vanetpen using ae come 
if vintprn fails or vintprn éq Y then 
remove vslint 
project vslint from vslintel using all sorted by intdate + 
Where intvname eq .vvslname 
output printer 
newpage | 
print vintaqprn 
OULPUL sserecn 
remove vslint 
Solelc 
endit 
Write "End of data for this vessel" 
set var -chk—init ia coal - 
endwhile 
endwhile 
endif — 
1f choice eq 6 then 
set Var mover com, 


endl 

endwhile *(end of main loop) 
remove temp 

remove bohis 

remove sarhis 

remove perane 

remove vslint 

Seca 0 


return 
xk( end ) 
S COMMAND 
UER_PER | 
( RARARKAAAKKARKAKARKKKARKAKAKARKKAKKAKAKKKAAKAKKKKKAKKARKKRAKARKKARERARKRA 
Program: = Suey Personnel 
Author: | R ang and J D Allen 
Date, WRitver: August 1987 
Description: This program searches database for all 
information concerning a particular person, 
SSG ee vessels owned or operated 
and all historical information concerning 
these vessels. 
Tables Used: vessel, sar, boarding, owner, operator 
owvsl, o vsl, opown, vslintel, petite. 
Temp Tables: temp, Vslint, periney bonis sceqnis, 
vslsown, vslsopr, wvsljoin, pvsljoin 
Reports Used: vslqprn, bogprn, sargprn, peragprn, 
pintgprn, vintgprn 
Forms Used: vslquery, brdquery, sarquery, perquerl, 
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perquer2, pintquer, vintquer 


KREKRKKEKKKKKKRKKKEREREKKRRKAKAKRREKKAKKKERRRRRRRRRRRERRREKKKKRKRKRARKKERREKKKKE ) 


set messages off 
set escape off 
newpage 
ae a OgEem Heading, in progress. Pleaem stan@hym™.......... at 
a 
clear all variables 
fee null" " 
ge Var more to XY 
remove temp *(relation for print purposes only) 
define 
attributes 
ap Sexe < 
relations 
temp with tmp 
end 
load temp 
Wye 
end | 
while more eq Y then *(main loop) 
set var ownfound to N 
set var oprfound to N 
set var status to N 
newpage ae 
ett Cs: [PGDN] after entering initial information to check 1f" + 
ac ; 
write "person exists in database. Press [ESC] to quit" at 2 10 
draw perquerl at 4 
Pa@eer Var return esc pgdn 
if #return ne esc then 
if viname exists and vfname exists then . 
set pointer #2 e2 for owners where ownlname contains .vlname and + 
ownfname contains .vfname : 
newpage 
Whtwee2 eq 0 then 
*(last/first name exist in owners) 
set var vplname to ownlname in #2 
set var vpfname to ownfname in #2 
set var vpermi to ownmi in #2 
set var vperdob to owndob in #2 
set var vperaddr to ownaddr in #2 
se® Var vpemcity to owneity in #2 
set var vperst to ownstate in #2 
set var Vinge 12 to chiles in #2 
set var vpertel to owntelno in #2 
newpage 
draw perquer2 with all at 3 
write "Correct owner? oe at 21 20 
Dreelimeowflound Ueaing "(!' at 21 35 
if owfound exists and owfound eq Y then 
set var vowld integer 
set var vowid to ownid in #2 
set var ownfound to Y 
break 
endif 
next #2 e2 
endwhile 
set var chk-op to Y 
if ownfound eq Y then 
set eee ee #2 e2 for opown where ownno eq .vowid 
tt ed. €q O theh | 
set var vopid to opno in #2 
set var oprfound to Y 
set var chk-op to N 
else 
set pointer #3 e3 for operator where oplname = .viname and + 
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opfname = 
*(check if an operator record = owner record) 


ne 


while e3 eq 


age 


= .,vfname 


O then 


*(last/first name exist in operator) 


set 


V 


var 
var 


var 


voplname to oplname in #3 
vopfname to opfname in #3 
vopmi to opmi in #3 
vopdob to opdob in #3 


ar 


var 
var 
var 
var 
var vopte 
var owoptest to T 

lname ne 

var owoptes 


vopst 


se to 


endif 


vopaddr to opaddr in #3 
VOR eY to opcity in #3 
tf to opstate in #3 
vobany to opzip in #3 
no to optelno in #3 


.voplname or vpfname ne .vopfname then 


F 


if vpermi exists and vopmi exists and vpermi ne .vopmi then 


set var owoptest to 


endif 
if vperdob exists and 
then 

set var owoptest to 
ence | 
1f vperaddr exists 


.vopaddr then 


set var owoptest to 
evceec aa 
1£ vpercity exists 


sVORC1 tyeemen 


F 
vopdob exists and vperdob ne .vopdob + 
F 


and vopaddr exists and vperaddr ne + 


if 


and vopcity exists and vpercity ne + 


F_ 


Bupeg eens t exists and vopst exists and vperst ne .vopst then 
se 


set var owoptest to 
endif 
2t var owoptest to 
endif 
if vperzip exists and 
then 
set var owoptest to 
endif 
if vpertel exists and 


.voptelno then 
set var owoptest to 


vopzip. exists and vperzip ne .vopzip + 
F 

voptelno exists and vpertel ne + 

F 


endif 

1f owoptest eq T then 
set var vopid integer _ 
set var vopeS to opid in #3 
set var cnk-op to 
set var oprfound to Y 
break 

endif 

next _ #3 e3 

endwhile 
endl 


endif 
1f chk-op eq Y then 


set pointer #3 e3 for operator where oplname contains. .vlname + 
and opfname contains .vfname 


newpage 

while e3 eq 0) tien 
k(last/first name exist 
set 
set 
set 
set 
set 
set 
set 
set 
set 


var 
var 
var 
Var 
Vat 
var 
Var 
var 
var 


vperst 


Vpenaay 


VDERECi ero opee 


in operator) 


vplname to oplname in #3 
vpfname to opfname in #3 
vpermi to opmi in #3 
vperdob to opdob in #3 
vperaddr to opaddr in #3 
vper cue to Cpe eye! #3 

Oo opstate in #3 
to ebay in #3 

n 


o in #3 
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newpage 
draw perquerZ with all at 3 
write "Correct operator? (N)" at 22 20 
PL lim oomound Usang "(m aU 27 38 
28 gEboune exists and opfound eq Y then 
Seu Vay VOplasintreger _ 
set var vopid to opid in #2 
set var oprfeund to Y 
break 
endif 
New. er e3 
endwhile 
endif 
1£ ownfound eq Y or oprfound eq Y then 
newpage 
write "Print owner/operator information? (Y)" at 10 10 
fillin persprn_ using "(" at 10 44 
1f persprn fails or persprn eq Y then 
newpage 
Wrmee Precaning wepomm™, pledsewstand Dy......... Werte O wD 
OWEDUL printer 
newpage 
print perqprn 
output terminal 
endac 
Sted + ' 
1£f ownfound eq N and oprfound eq N the 
set var vplname to .vlname 
Sndift | 
set pointer #1 el for perintel where intlname contains .vplname 
Set ver count to l 
1f el eq O then . 
Bevpage . 
a ae Coast Guard Group Monterey Intelligence History" + 
a 


newpage 
write "There is no intelligence for this person" at 10 10 
Write "Press any key to continue : " at 23 10 
pause 
emair 
while el eq O then 
set var viname to intlname in #1 
set var viname to intfémamesin #1 
set var via to Lnitma ie 
set var vdob to intdob in #1 
set var vreml to pintreml in #1 
set var vrem2 to pintrem2 in #1 
set var vrem3 to pintrem3 in #1 
set var vdate to pintdate in #1 
Le commit @€q T™then 
draw pintquer with all at 3 
endif 
1f count 6q 2 then 
draw pintquer with all at 9 
endif 
1f count ¢q 3%then 
draw pintquer with all at 15. 
write "Press any key to continue '' @e ZB FOC 
pause 
newpage 
ele ; 
Bact var count, to .count + 1 
1f count eq 4 then 
S@t. var count to l 
endif 
next #1 el 
endwhile 


4ll 


a apommaber fe el for perintel where intlname eq .vplname 
e en 
ME cite "print personnel Ane ee (Ye ate23 10 
fillin p@rintpr us@ng "(Beat 
ie Bi fails or perintpr eq Y then 


write "Preparingereport, pleasmmstandsby..2.../-- ac Louie 
reneue Perine 
project perint from perintel using all sorted by pintdate + 
where intlname eq .vplname 
output printer 
newpage 
print pintqprn 
output screen 
remove perint 
endif 
endif | 
*(determine status of person, select vessels owned and operated) 
*(W = owner, P = operator, B = both and N = neither 
if ownfound eq Y and oprfound eq Y then 
SU Van Stavus arom. 
remove vslsown 
project vslsown from owvsl using all where idowner eq .vowid 
remove wvsljoin. 
join vslsown using vhinown with vessel using vslhin forming + 
wvsljoin where eq 
newpage 
Wee “This individual owns the following vessels:" at 1 2 
write 
sel vslhin vslname from wvsljoin 
write "' "! 
write "End of data." 
remove vslsopr 
project vslsopr from opvsl using all where idoper eq .vopid 
remove bet hae 


join vslsown using vhinown with vessel using vslhin forming + 
pvsljoin where eq 

write " 

Wr coma 


write This individual has operated the following vessels:' 
write 

sel vslhin vslname from pvsljoin 

WiGane Beau 

write "End of data. Press any key to continue! 


if ownfound eq Y and oprfound eq N then 
set var status to W 
remove vslsown 
project vslsown from owvsl using all where idowner eq .vowid 
remove wvsljoin. 
join vslsown using vhinown with vessel using vslhin forming + 
blot ia where eq 
neyeage 
wigce this individual owns the bor dane vessels:" at 1 10 
write 
sel vslhin vslname from wvsljoin. 
write 
write "End of data. Press any key to continue" 
pause 
endif 
if ownfound eq N and oprfound eq Y then 
set var status to P 
remove vslsopr 
project vslsopr from opvsl using all where idoper eq .vopid 
remove ae 
join vslsown using vhinown with vessel using vslhin forming + 
pvsljoin where eq 
newpage 
write "This individual has operated the following vessels:" + 
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eo 10 
write cae 
sel vslhin vslname from pvsljoin 
Wieden! . 
write "End of data. Press any key to continue’ 
pause 
endif 
1f status ne N then 
newpage . . 
write "Do you wish to search for full information concerning + 
these vessels? (ny! at 10 5 
fillinssearchoek using "(" at 10 74 
1f searchok exists and searchok eq Y then 
set var done to N 
set var owndone to N 
while done eq N then 
1f status a B and owndone eq N then 
remove vsisown . 
project vslsown from owvsl using all where idowner eq .vowid 
set pointer #3 e3 for vslsown 
endif 
1f status =o W then 
remove vsisown 
project vslsown from owvsl using all where idowner eq .vowid 
set pointer #3 e3 for vslsown 
endif 
if status eq P then 
remove vslsopr | . 
PEogece Menge! from opvsl using all where lidoper eq .vopid 
See poineer #3 e€3 for vsilsopr 
endrer 
1f status eq B and owndone eq Y then 
remove vslsopr . 
project remo from opvsl using all where idoper eq .vopid 
set pointer #3 e3 for vslsopr where vhinoper nea vhinown + 
in vslsown 
endie 
while e3 eq 0 then 
if status eq B and owndone eq N or status eq W then 
set var vvslhin to vhinown in #3 
endif 
1f status eq B and owndoneé*eq Y or status eq P then 
set var vvslhin to vhinoper in #3 
Sra . 
set pointer #1 el for vessel where vslhin eq .vvslhin 
set var vvslno to vslno in #1 
set var vvslname to vsliname in #1 
set var vvslmake to vslmake in #1 
set var vvslmod to vslmodel in #1 
set var ete to vslyear in #1 
set var vvslton to vsltons in #1 
set var vvslft to vsllenft in #1 
set var vvslin to vsllenin in #1 
set var vvslhp to vslhp in #1 
set var vvsluse to vsluse in #1 
set var vusedscr to vusedesc in boatuse where vuse eq + 
.vvsluse 
set var vvsltype to vsltype in #1 
set vas vtypdscr to vtypedes in boattype where vtype eq + 
.vvsltype 
set var vvslprop to vslprop in #1 
set ‘en vpropdsc to propdesc in boatprop where proptype eq + 
.vvslprop . 
set var vvslhull to vslhull in #1 
set var vhulldsc to hmatdesc in hullmat where hmattype eq + 
.vvslhull 
set var vvsleng to vsleng in #1 
set ea vengdesc to ecompdes in engcomp where ecomptyp eq + 
.vvsleng 
set var vvslfuel to vslfuel in #1 
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individual. 


set var vfueldes to fcompdes in fuelcomp where fcomptyp eq + 

.vvslfue 

set var vconstr to vslconst in #1 

set var vcondesc to consdesc in constr where constype eq + 

.vconstr 

set var vdecal to cmedecal in #1 

set var vcmeyear to cmeyear in #1- 

set var voffno to vsloffno in #1 

set var vhome to homeport in #1 

set var veall to vslcall in #1 

set var vvalue to vslvalue in #1 

set var vsuper to vslsuper in #1 

set var vmasts to vslmasts in #1 

set var vsailno to sailno in #1 

set var vhlicolor to hlicolor in #1 

set var vtrcolor to trcolor in #1 

set var vslcolor to slcolor in #1 

set var vebcolor to cbcolor in #1 

set var vdkcolor to dkcolor in #1 

set var vmarks to vslmarks in #1 

newpage 

1f status eq B and owndone ae N or status eq W then 
write "This vessel is owne ey the designated + 

Press aniekey. tO cantintiedaat 1 

enGia 

1f status eq B and owndone eq Y or status eq P then 
write "Subject person has operated this vessel. Press + 


any key temeominmiie ice! 


History" at 


endif 
draw vslquery with all at 3 


pause 


set pointer #2 e2 for vslintel where intvname eq .vvslname 
Se Ce VabeaGunt borr 
1f eZ eq O then 


ne Deas 
ve e "JS Coast Guard Group Monterey Intelligence + 


1 
- WY Lte Newnan enn n annem en ann ee nee we eee ee nee wee een eee eee de 
a0 aD aD GP aD aD aD ae aD ae ae ae GP ae aD oD oe po me me oe Ih at 2 l 
else 
ne age 


wri é | snene is no intelligence for this vessel name" + 
at l 
Write "Press any key to continue" at 23 10 


newpage 
Wh Lese2 lequOmenen 
set var vintdate to intdate in #2 
set var vepic to epiccede in iZ 
set var vstolen to stolen in #2 
set var vvreml to vremarkl in #2 
set var vvrem2 to vremark2 in #2 
set var vvrem3 to vremark3 in #2 
if count ¢q 1 then 
draw vintquer with all at 3 
endif | 
Li Count eqe2, tien 
draw vintquer with all at 9 
endif 
1f count eq 3 then 
draw vintquer with all at 15. 
write "Press any key to continue" at 23 10 
pause 
newpage 
ence 
set var count tCom@acount 7a 
1f count eq 4 then 
set var count to l 
ends 
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next #2 e2 
endwhile 
ne statuseeq W or statue éq»B then 
Set pointer #5°e3 for vslsown 
=p (oh 
mE Status .eq Pythen 
set pointer #3 es for vslsopr 
ened 
1f status eq B and owndone eq Y then . 
set pointer #3 e3 for vslsopr where vhinoper nea + 
vhinown in vslsown 
enair 
1f €3 eqe0 then . 
wae co vessel information and intelligence? (Y)" + 
at 
Fillan velipen waeng "(" at 28 53 
1f vslprn fails or vslprn eq Y then 
newpage | 
wea 'PRepatang report, please standebywm....... Me 
at 
while e3 eq 0 then 
set var vvslhin to vhinown in #3 .- 
set pointer #1 el for vessel where vslhin eq .vvslhin 
set var vvslno to vslno in #1 
set var vvslname to vslname in #1 
set var vvslmake to vslmake in #1 
set var vvslmod to vslmodel in #1 
set var vis THES © to vslyear in #1 
set var vvslton to vsltons in #1 
set var vvslft to vsllenft in #1 
set var vvslin to vsllenin in #1 
set var vvsinp to vslhp in #1 
set var vvsluse to vsluse im #1 
set var vusedscr.to vusedesc in boatuse where vuse + 
eq .vvsluse . 
set var vvsltype to vsltype in #1 
set var vtypdscr to vtypedes in boattype where + 
vtype eq .vvsltype 
set var vvslprop to vslprop in #1 
set var vpropdsc to propdesc in boatprop where + 
proptype eq ae Beer . 
set var vvslhull to vslhull in #1 
set var vhulldsc to hmatdesc in hullmat where + 
hmattype eq .vvslhull 
set var vvsleng to vsleng in #1 
set var vengdesc to ecompdes in engcomp where + 
ecomptyp eq .vvsleng , 
set var vvslfuel to vslfuel in #1 . 
set var vfueldes to fcompdes in fuelcomp where + 
fcomptyp eq .vvslfuel | 
set var vconstr to vslconst in #1 
set var vcondesc to consdesc in constr where + 
Ca@nstype é6q .veonsur 
set var vdecal to cmedecal in #1 
set var vcmeyear to cmeyear in #1 
set var voffno to vsloffno in #1 
set var -vhome to homeport in #1 
set var vcall to vslcall in #1 
set var vvalue to vslvalue in #1 
set var vsuper to vslsuper in #1 
set var vmasts to vslmasts in #1 
set var vsailno to sailno in #1 
$et var’ vinicolor to hicolor in 1 
set var vtercoleor to treolor in €1 
set var vslcolor to slcolor in #1 
gat var vcbeolor to chcolor mm #41 
set var vdkcolor to dkcolor in #1 
set var vmarks to vslmarks in #1 
newpage 
write "Preparing report, please stand by......... 1 


oy 
© 
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atl Oe). 
OUCcDUC Drimcer 
newpage 
print vslqprn 
OUTPUT ssercen 
set pointer #2 e2 for vslintel where intvname eq + 
.vvslname 
if e2 eq 0 then 
remove vslint 
project vslint from vslintel using all sorted by + 
intdate where intvname eq .vvslname 
output printer 
newpage 
prt vinveorn 
OQULDUT sereen 
remove vslint 
endif 
next #3 e3 
endwhile 
endif 
endif 
set pointer #2 e2 for boarding where bovhin eq .vvslhin 
while e2 eae then 
var vbodate to bodate in #2 
var vbotime to botime in #2 
var vbono to bono in #2 
var vvslpob to vslpob in #2 
var vbolat to obslat in #2 
var vbolon eg obslong in Ke 


Vat 
var 
var 
Veule 
Var 
Vail 
Vat: 
Var 
var 
var 
V aur 
var 
Val 
var 
var 


set 
set 
set 
set 
set 
set 
set 
set 


set 
set 
set 
set 
-set 
set 
set 
set 
set 
set 
‘set 
set 
set 
set 
set 
set 


var 
var 
Vale 
Var 
Var 
Var 
Val 
Var 
Var 
var 
var 
var 
Var 
Var 
var 
Val 


vYvV1015 
vvi0155 
vv101l56 
VV10Ol57 
vviol58 
vviol53 
vviol60 
vviol6l 
vv10l162 
vv10163 
vv10164 
vv1o0l65 
vviol66 
VIO 167 
vviol68 
vuns69 
vuns70 
vuns71 
vuns72 
vuns73 
vuns 7/4 
vuns75 
vuns76 
vuns77 
vuns78 
vuns793 


o v1i0l154 
vV10155 
viol56 
V1i01L57 
viol58 
viol59 
v10l160 
viol6l 
viol62 
v10163 
v1iol64 
viol65 
viol66 
viol67 
v1o0168 


uns69 
uns70 
uns71 
uns72 
uns73 
uns 74 
uns75 
uns76 
uns77 
uns78 
uns79 


in 
in 
in 
iy) 
in 
in 
in 
in 
in 
in 
in 


vboreml to boreml 
vborem2 to borem2 
vborem3 to borem3 
vboname to boname 
vborate to borate 


in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
on 


set var 
set var 
newpade 


ypag 
vio Guard cite: Monterey Boarding History" + 


vweapons to weapons in #2 
vale to uns76 in #2 


Vac. 

draw brdquery with all at 3 

write "Press any key to continue" at 23 10 
pause 
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next #2 e2 
endwhile 


set ae 


1f e 


write "Priamt boarding hustor 
fillin bohasprn, usang "(!"" at 


er #2 e2 for boarding where bovhin eq .vvslhin 
q O then 


y? (Y)" at 23 10 
23 34 


if bohisprn fails or bohisprn eq Y then 


me 


a 


ge 


write "Preparing report, please stand by......... i 3 
ac lOO 

remove bohis : 
project bohis from poe Round “ele 


vslpob obslat obslong viol 


v1o 


is 


bodate botime bono + 
Sevieu5o VYiolS7 + 


vio0l58 vio01l59 viol60 viol61 viol62 viol63 violé4 + 
vi0l65 viol66 viol67 viol68 uns69 uns70 uns71 uns72 + 
uns73 uns74 uns75 uns76 uns77 uns78 uns79 boreml + 
borem2 borem3 boname borate weapons bovhin sorted by + 
bodate where bovhin eq .vvslhin 
output printer 


newp 


a 


ge 


print bogprn 
output screen 
remove bohis 


end 
endif 


£ 


Te eZ ne"O then 


ne 


age 


wrl : ae are no boarding cases for this vessel" + 
write "Press any key to continue" at 20 10 


ac 1 


paus 
endif 


e 


set pointer #2 e2 for sar where sarvhin eq .vvslhin 
set var count to l 
1£f e2 eq O then 


newpage 
write "US Coast Guard Group Monterey Sar History" + 
at 1 10 
WELK Name e wwe eee ne ee we een ee ee ne eee ee eee ee see + 
I at 2. Lb 
éndif 
whia€ €2.é€q 0 then . 
set var vfoldno to folderno in #2 
set var vucn to ucn in #2 
set var vmucn to mucn in #2 
set var vsardate to sardate in #2 
set var vsarday to sarday in #2 
set var vsartime to sartime in #2 
set var vsarnod to sarnod in #2 
set var vee oR to sarpob in #2 
set var vsarlat to sarlat in #2 
set var vsarlong to sarlong in #2 
set var vdistoff to offshore in #2 
set var vimmed to immedsar in #2 


Tf eount eq J then 

draw sarquery with all at 3 
endif 
wf coltint @q@.2 then 

draw sarquery with all at 9 
endif 
1f count €q 3 then 

draw sarquery with all at 15. 

write "Press any keéy to contznue" at 23 10 


pa 
ne 
endl 


use 


oe 


get var count to .count + 1 
1f count eq 4 then 

set. var count to l 
endif 
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next #2 e2 


endwhile 
set poten #2 e2 for sar where sarvhin eq .vvslhin 
1f e2 eq O then 


flllin sarheprn Wsing “at 


write "Print sar hastemy? Ge)'lmat 2emq0 
. { 23% 22 
1£ sarhsprn fails or sarhsprn eq Y then 
ne ves . 
write "Prepaming repont, pleasemszand by.... . eo 
at Los . 
remove sarhis 
Prose sarhis from sar using folderno ucn mucn + 
sardate sartime sarnod sarpob sarlat sarlong offshore + 
immedsar sarvhin sorted by sardate where sarvhin eq + 
-vvslhin | 
output printer 
newpage 
print sarqgprn 
SUEDUE “Sereen 
remove sarhis 
endif 
endif 
if e2 ne O then 
newpage 
Write "There are no samecases for this vessel’ meat lOmEe 
write "Press any key to continue" at 20 10 
pause 
endif 
next #3 e3 
endwhile 
1f status eq W or status eq P then 
set var done to Y 
- @liGiiet 
if status eq B and owndone eq N then 
set var owndone to Y 
endie 
if status eq B and owndone eq Y then 
S€e val denemrer / 
endif 
endwhile 
remove vslsown 
remove vslsopr 
remove wvsljoin 
remove pvsljoin 
endi 
else 


newer ne 
wri : ots name does not exist as an owner or an operator" + 
at 10 1 . 
write "Press any key to continue" at 15 15 
pause 
endif 
endif 
endif 
label moreblk 
newpage | 
write "More names to check? (N)" at 10 10 
fillin mrname using "(" at 10 31 
1f mrname fails or mrname eq N then 
set var more to 
else 
clear all variables 
set var moremtom: 
endif 
endwhile *(end of main loop) 
remove temp 
remove vslsown 
remove Ver ens 
remove perin 
remove vslint 
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remove bohis 

remove sarhis 
set null -0- 

return 

x( end ) 
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APPENDIX P 
SUTILITY SOURCE CODE 


S$ COMMAND 
UTLMAIN 
K ( RRRKRRKARKAKK AKA KKK RKAKKKKRKK KKK KKK RRR KR RRERRRKKK KKK KK KRERRERRRRRKK RK 


US COAST GUARD GROUP MONTEREY 
SEARCH & RESCUE and ENFORCEMENT of LAWS and TREATIES 
INTELLIGENCE SYSTEM (SARELTIS) 


UTILITIES MENU and APPLICATION PROGRAMS 


Author: Jon D. Allen, LT, USCG 
Heidi R. Lang, LT, USN 
AUGUST 1987 


KAKKRKAKKKKKKRRKKK RAK AK ARKKK KK RRR RKRER RRR ERK RRR KKK KKK KERAERER ) 


set error messages apse 
set messages of 

set escape off 

clear all variables 

newpage | 

set var pickll integer : = 
choose pe from utl_menu in sutility.apx 


if pickl1l eq 0 then 
quit to restuely cma 
endif 


if pickil eq then ji 
run INITIAL in sutility. apxz 
quit to restutly.cmd 

endif 

if pickle cm2 scien 
run PACKDBMS in sutility.apx 
quit tee restutiy.emd 

endif 

12 pickhiieceo etter 
run BACKDBMS in sutility.apx 
quit Ge@mrestuely cma | 

ences 

1f pickll eq 4 then _ 
run RESTDBMS in sutility.apx 
quit to restutly.cmd 

encase 3 

Lf pigmey eq) > then 
quit to restmain.cmd 

ends 

quis temrestutly. cmd 

return 

Ssmenu 

utl_menu 

column SARELTIS --- UTILITIES MENU 

INITIALIZE DATABASE 

PACK DATABASE 

BACKUP DATABASE 

RESTORE DATABASE 

RETURN TO MAIN MENU 

*( end ) 
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S COMMAND 


INITIAL 
A (RARKAKKRAKAKKKKAKAKKRAKKKRKRKKAKAKKAKKKKAAKKKKAKAKKKKAKKKRKAKAKKKKAKKKRKRKRK AK 


Program: 
Author: 


Date Written: 
Pescription: 


Tables Used: 
Temp Tables: 
Reports Used: 


Forms Used: 


Initialize SARSYS 

J D Allen and H R Lang 

August 1987 

This program removes all temporary 

tables that can be created by the system. 
none 

all 

none 

none 


RARRKKRKKAAKKKKAAKKARRKKRKRKKKKAKAKAAKAKKAKAKAKRKRKRKKKAKAKKKAKAKKAKAKAKARRKKKKRKKKKK ZK ) 


set error messages off 


set messages of 
set escape off 


newpage 


remove 
remove 
VPenove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
romove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
remove 
EoMove 
remove 
remove 
remove 
remove 
remove 
remove 
rémov ce 
remove 
remove 
remove 
remove 


newpage 


return 
end 


spacsum 
stolesum 
intelsum 
epictmpl 
epictmp2 
epictmp 
sarsum 
temp 
bosum 
vslsum 
violsum 
vsimo 
summaryl 
summary2 
summary3 
summary4 
summary5 
summary6 
summary7 
frqchart 
pesitirg 
sarsum 
bovslsum 
ownsuml 
ownsum2 
opsuml 
opsum2 
vslsum 
vsilsuml 
vslsum2 
sartimel 
sartime2 
Sartime3 
sartime4 
SsartimeS5 
sarsuml 
sarstat 
intelsum 
opvslsl 
opvsls2 
opervsls 
ownvsls1l 
ownvsls2 
ownvsls 
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5S COMMAND 


PACKDBMS 
K (KAARKKAKAKKKAAKKKKKAKKKKKAKKKKKAKAKRKKKKKKKKKKAKKKKRKKKAKKRKAKKRKEKRKAKKKKKKKKKK 


Program: Pack Database 

Author: | J D Allen anayH Regang 

Datewni ULen: August 1987 

Description: This program packs/compresses the database. 
Tables Used: none 

Temp Tables: none 

Reports Used: none 

Forms Used: none 


KAARKKAKKKKRKRKRKK RK RK RAK RKRKARK RK KRKK RK KKK KKK RARER RRR AK ARRRRKKKERKERERERER ) 


set error messages off 

set messages of 

set escape off 

clear all variables 

newpage 

write "Before packing the database, please ensure that you have + 
made" at 4 1 

ee 2 pees up of the database. Ideally, you-should back up + 
the a 

write "database just prior to performing the packing operation." at 6 1 
Set Van senoice etext | 

write "Do you wish to continue with the packing program? (N)" at 8 1 
Set error messages on 

fillin choice using "(" atweme? 

set error messages off. - 

if choice fails or choice eqn then 


7 em vin 
else 
_ write {Pach nsacommaess ing the database will take several + 
MInUESS- sat LC 
White “Piesce Despattentaa.. . a ciemee ae 
write "Please press any key to continue” at 16 1 
pause 
newpage 


write "Now packing the database...........! at 10 1 
Seago Vale Gey 
pack Sal sie 
if erv = 0 then 
‘ write "Packing has successfully completed." at 12 1 
else 
write "An error has occurred during the packing." at 12 1 
pigs "Please refer to the reference manual page 5-25." at 13 1 
endi : 
Write "Please press any key to continue” at 18 1 


endif 
clear all variables 
return 
*( end ) 
S COMMAND 
BACKDBMS 
H (RARRKKKAKRRKRK RAK KR RR KR RAK RRR RRA RK RR RRR RRR RARER ERK RERERERERRRERER 
Program: eee Database 
Author: | J D Allen and H R Lang 
Daté Written: August 1987 . 
Description: This program provides instructions for 
backing up the database. 
Tables Used: none 
Temp Tables: none 
Reports Used: none 
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Forms Used: none 


RAAKAKKKKAKKKEKKKEKKARKKRRKKKKKARKKRKKAAKKA KAA KKKKKAKKAAKKAAKKAKKAKAKAAKAAKRKA ) 


set error messages off 

set messages of 

set escape off 
newpage = 
write eo up of the database should be done at a minimum of once + 
er a 
fate eee To back the database up only requires that you exit + 

e a 

write "database and executing a DOS (Disk Operating System) batch + 
meegram' at.5 1 — . 
write ae has been specifically customized to do the backup for + 

ou. “at 1 
ite "To exit the system, you must choose the [EXIT SARSYS] option + 
prom at 10 1 
write "the master menu. This will exit from RBase 5000 and return + 
Pou,to” at lll 
pete mee DOS prompt. At the DOS prompt, enter the following:" + 

a 
Write " BACKDBMS + 
at 14 1 
Write "Please follow the instructions/prompts that the computer + 

dis lays" ac Lome. ; | 
Write ‘with regard to the insertion of formatted disks. Upon + 
Comemesazon' at 17 1 - 
Write "of the program, you will automatically be returned to RBase + 
eooee’ at 18 1 


write "Please press any key when you are ready to proceed...... + 
moees 1 
pause 
newpage 
return 
*( end ) 
SCOMMAND 
RESTDBMS 
HK ( RRKKAKKAKKKAKKAKAKKAAKKKKRKAKKKKKAKKKAKAKKAKARK RAK KARR RAKKAR RRA AKA AK RRR 
Program: Restore Database 
Author: - J D Allen and H R Lang 
Pace Written: August 1987 | 
Description: This program provides instructions for 
restoring the database from a backup. 
Tables Used: none 
Temp Tables: - none 
Reports Used: none 
Forms Used: none 


KAKRKAKKKAARKKKKKKAKKAAKKKKKKKAKKKKAAKKAKAKKAKKKAAKKKAKKAKKKAKKKAKKKKKKKKARKK RZ ) 


set error messages off 

set messages o 

set escape off 

newpage . 

write eae ee the database only requires that you exit the " + 
at i 

write "database and execute a DOS (Disk Operating System) batch + 

program" at 5 1 : 

write ee has been specifically customized to do the restore for + 

WOU. amit 1 

write 'To exit the system, you must choose the [EXIT SARSYS] option + 

from" “et 10 1 

write "the master menu. This will exit from RBase 5000 and return + 
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YOUy tO tat ot 

pire a DOS prompt. At the DOS prompt, enter the following:" + 

a 

write " RESTDBMS Wy 

at 14 1 

ea "Please follow the instructions/prompts that the computer + 

dis lays" at 16 1 | 

vile with regard to the insertion of backup disks. Upon completion! + 

a 

write, "of thes program, you will automatically be returned to RBase + 
a 

wiles Pasa press any key when you are ready to proceed......... + 

a 

pause 

newpage 

return 

*( end ) 
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